Inloggnings program till Tele2

Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean

Private TrayI As NOTIFYICONDATA

Private Const NOTIFYICON_VERSION = 3
Private Const NOTIFYICON_OLDVERSION = 0

Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2

Private Const NIM_SETFOCUS = &H3
Private Const NIM_SETVERSION = &H4

Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4

Private Const NIF_STATE = &H8
Private Const NIF_INFO = &H10

Private Const NIS_HIDDEN = &H1
Private Const NIS_SHAREDICON = &H2

Private Const NIIF_NONE = &H0
Private Const NIIF_WARNING = &H2
Private Const NIIF_ERROR = &H3
Private Const NIIF_INFO = &H1
Private Const NIIF_GUID = &H4

Private Const WM_MOUSEMOVE = &H200
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_RBUTTONDOWN = &H204
Private Const WM_RBUTTONUP = &H205
Private Const WM_RBUTTONDBLCLK = &H206

Private Type NOTIFYICONDATA
   cbSize As Long
   hWnd As Long
   uID As Long
   uFlags As Long
   uCallbackMessage As Long
   hIcon As Long
   szTip As String * 128
   dwState As Long
   dwStateMask As Long
   szInfo As String * 256
   uTimeout As Long
   szInfoTitle As String * 64
   dwInfoFlags As Long
End Type

Dim lngTimer As Long

Private Sub Command1_Click()
    Open App.Path & "/settings.ini" For Output As #1
        Print #1, Text1.Text
        Print #1, Text2.Text
        Print #1, list1
    Close #1
End Sub

Private Sub Command2_Click()
    login
End Sub

Private Sub Form_Load()
    list1.AddItem "Tele2"
    list1.AddItem "Tiscali"
    Timer1.Interval = 60000
    Timer1.Enabled = True
    getUser
    login
    TrayI.cbSize = Len(TrayI)
    TrayI.hWnd = picHook.hWnd 'Link the trayicon to this picturebox
    TrayI.uID = vbNull
    TrayI.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
    TrayI.uCallbackMessage = WM_LBUTTONDOWN
    TrayI.hIcon = Me.Icon
    TrayI.szTip = "Tele2 ADSL login Robert Andersson 2004" & Chr$(0)
    'Create the icon
    Shell_NotifyIcon NIM_ADD, TrayI
End Sub

Private Sub login()
    If Text1.Text <> "" And Text1.Text <> "user" Then
        On Error GoTo errHandler
        Dim objXMLHTTP, HTML
        Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")
        If list1 = "Tele2" Then
            objXMLHTTP.Open "POST", "https://login1.swipnet.se/login.php", False
        Else
            objXMLHTTP.Open "POST", "http://valo1.tiscali.se/", False
        End If
        objXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
        objXMLHTTP.Send "username=" & Text1.Text & "&password=" & Text2.Text
    End If
    Exit Sub
errHandler:
    MsgBox "Kunde inte kontakta server"
End Sub

Private Sub getUser()
    On Error Resume Next
    Open App.Path & "/settings.ini" For Input As #1
        Line Input #1, user
        Line Input #1, pass
        Line Input #1, isp
    Close #1
    Text1.Text = user
    Text2.Text = pass
    list1 = isp
End Sub

Private Sub Form_Resize()
    If Form1.WindowState = 1 Then
        Form1.Visible = False
        Form1.WindowState = 0
    Else
        Form1.Visible = True
    End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
    TrayI.cbSize = Len(TrayI)
    TrayI.hWnd = picHook.hWnd
    TrayI.uID = 1&
    Shell_NotifyIcon NIM_DELETE, TrayI
End Sub


Private Sub Timer1_Timer()
    
    If lngTimer > 10 Then
        lngTimer = lngTimer + 1
    Else
        login
        lngTimer = 0
    End If

End Sub
Private Sub pichook_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    
    msg = X / Screen.TwipsPerPixelX
    
    If msg = WM_LBUTTONUP Then
        If Form1.Visible <> True Then
            Form1.Visible = True
        End If
    End If

End Sub