Web adresleri nasıl açılır ( Bi Butonun veya Labelın Click Olayına Ekleyin )
Kod;
Dim iRet As Long
Dim Cevap As Integer
Cevap = MsgBox("http://www.turkhackteam.net adresini açmak istiyor musunuz?", vbInformation + vbYesNo, http://www.turkhackteam.net )
Select Case Cevap
Case vbYes
iRet = Shell("start.exe http://www.webhocam.com", vbNormal )
Case vbNo
Exit Sub
End Select
Kod;
Dim iRet As Long
Dim Cevap As Integer
Cevap = MsgBox("http://www.turkhackteam.net adresini açmak istiyor musunuz?", vbInformation + vbYesNo, http://www.turkhackteam.net )
Select Case Cevap
Case vbYes
iRet = Shell("start.exe http://www.webhocam.com", vbNormal )
Case vbNo
Exit Sub
End Select
