Net Anlatım .Net Geliştirme

Private Declare Function CreateEllipticRgn Lib “gdi32″ _
(ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, _
ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib “user32″ _
(ByVal hWnd As Long, ByVal hRgn As Long, _
ByVal bRedraw As Boolean) As Long
Private Sub Command1_Click()
r = InputBox(”SİTENİN SADECE ADINI GİRİNİZ  :”)
Shell “explorer.exe http://www.” + r + “.8m.net”, vbMaximizedFocus
Label1.Caption = “http://www.” + r + “.8m.net”
End Sub
Private Sub Command2_Click()
E = InputBox(”MYNET SİTESİNİN SADECE ADINI GİRİNİZ  :”)
Shell “explorer.exe http://www.” + E + “@mynet.com.tr”, vbMaximizedFocus
Label1.Caption = “http://www.” + Y + “.com.tr”
End Sub
Private Sub Command3_Click()
Y = InputBox(”İNTERNET ADRESİNİN SADECE ADINI GİRİNİZ  :”)
Shell “explorer.exe http://www.” + Y + “.com.tr”, vbMaximizedFocus
Label1.Caption = “http://www.” + Y + “.com.tr”
End Sub
Continue Reading »