İnternet Programı

Yazar jawscod2

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
Private Sub Command4_Click()
X = InputBox(”İNTERNET ADRESİNİN SADECE ADINI GİRİNİZ :”)
Label1.Caption = X + “@hotmail.com”
Shell “explorer.exe mailto:” + X + “@hotmail.com”, vbNormalFocus
End Sub
Private Sub Command5_Click()
End
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 17 Or 13 Or 27 Then
End
End If
End Sub
Private Sub Form_Load()
Show
SetWindowRgn hWnd, CreateEllipticRgn(0, 0, 450, 400), True
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = &HC00000
If Label1.FontName = “Comic Sans MS” Then
Label1.FontName = “MS Sans Serif”
End If
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = &HFF&
Label1.FontName = “Comic Sans MS”
End Sub
Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label2.ForeColor = &HFF&
End Sub