Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- While 1
- $nMsg = GUIGetMsg ()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE
- ExitLoop
- Case $start
- start()
- Case $credits
- MsgBox(0,'Credits.','Made by Zero0679 @ TBN.')
- Case $exit
- Exit
- Case $load
- $File1 = FileOpenDialog("Choose File...", @DesktopDir, "Text Documents (*.txt)")
- $Var = FileRead($File1)
- GUICtrlSetData($Links,$Var)
- Case $clear
- GUICtrlSetData($Links,'')
- Case $save
- $SaveDir = FileSaveDialog("Save Link(s)",@DesktopDir,"Text Files (*.txt)|All Files (*.*)",18,"Link List.txt")
- FileWrite($SaveDir,GUICtrlRead($Links))
- Case $login
- GUICtrlSetData($login,'Login Details : Set')
- $Form2 = GUICreate("Login Details.", 200, 83, -1, -1, Default, BitOR($WS_EX_MDICHILD, $WS_EX_TOOLWINDOW), $Form1)
- $ls2 = FileReadLine($file,-1)
- $rats2 = StringSplit($ls2,'/')
- If $ls2 = '' Then
- $user = GUICtrlCreateInput('Username', 5, 5, 150, 21)
- $pass = GUICtrlCreateInput('Password', 5, 30, 150, 21)
- Else
- $uun = $rats2[1]
- $bbn = $rats2[2]
- $user = GUICtrlCreateInput($uun, 5, 5, 150, 21)
- $pass = GUICtrlCreateInput($bbn, 5, 30, 150, 21)
- EndIf
- $savedata = GUICtrlCreateButton('Save Data', 25, 55, 140, 25)
- GUISetState(@SW_SHOW)
- While 1
- $aaMsg = GUIGetMsg(1)
- If $aaMsg[1] = $Form2 Then ; Check we are getting messages from the child
- Switch $aaMsg[0]
- Case $GUI_EVENT_CLOSE
- GUIDelete($Form2)
- ExitLoop
- Case $savedata
- ; Save data code goes here
- FileWriteLine($file,GUICtrlRead($user) & '/' & GUICtrlRead($pass))
- GUICtrlSetData($user,'')
- GUICtrlSetData($pass,'')
- GUIDelete($Form2)
- ExitLoop
- EndSwitch
- EndIf
- WEnd
- EndSwitch
- WEnd
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement