Jump to content

TheWarLords

Active Members
  • Posts

    25
  • Joined

  • Last visited

TheWarLords's Achievements

Seeker

Seeker (1/7)

0

Reputation

  1. now i make On/off but Only 2 work how make all work Code #include "Apple Base.au3" _Apple_Startup(2, 0x00FFFF, 0x00FF00, 0xFF0000) $GUI = _Apple_Draw_Gui(120, 650, 1, "Example", 0xC0C0C0, 200) _Apple_Create_Text("Test Team TBK", 50) _Apple_Create_Function("Test", 50) _Apple_Create_Function("Test", 50) _Apple_Create_Function("Test", 50) _Apple_Create_Function("Test", 50) _Apple_Create_Function("Test", 50) _Apple_Create_Function("Test", 50) _Apple_Create_Function("Test", 50) _Apple_Create_Function("Test", 50) _Apple_Create_Function("Test", 50) _Apple_Create_Function("Test", 50) _Apple_Create_Function("Test", 50) _Apple_Create_Function("Test", 50) _Apple_Create_Function("Test", 50) _Apple_Create_Function("Test", 50) _Apple_Create_Function("Test", 50) _Apple_Create_Function("Test", 50) _Apple_Create_Function("Test", 50) _Apple_Create_Function("Test", 50) _Apple_Create_Function("Test", 50) _Apple_Create_Function("Test", 50) _Apple_Create_Function("Test", 50) _Apple_Create_Function("Test", 50) _Apple_State_Gui(1, $GUI) _Apple_Topmost_Check("Example") _Apple_Enable_Up_Down() While True Sleep(100) WEnd Func _0($action) If $action = 1 Then ElseIf $action = 0 Then EndIf EndFunc
  2. Thanks and Thanks for Advice
  3. i make On/Off but 2 Only work and i went all work can help #include "Apple Base.au3" _Apple_Startup(2, 0x00FFFF, 0x00FF00, 0xFF0000) $GUI = _Apple_Draw_Gui(120, 650, 1, "Example", 0xC0C0C0, 200) _Apple_Create_Text("Test Team TBK", 50) _Apple_Create_Function("Test", 50) _Apple_Create_Function("Test", 50) _Apple_Create_Function("Test", 50) _Apple_Create_Function("Test", 50) _Apple_Create_Function("Test", 50) _Apple_Create_Function("Test", 50) _Apple_Create_Function("Test", 50) _Apple_Create_Function("Test", 50) _Apple_Create_Function("Test", 50) _Apple_Create_Function("Test", 50) _Apple_Create_Function("Test", 50) _Apple_Create_Function("Test", 50) _Apple_Create_Function("Test", 50) _Apple_Create_Function("Test", 50) _Apple_Create_Function("Test", 50) _Apple_Create_Function("Test", 50) _Apple_Create_Function("Test", 50) _Apple_Create_Function("Test", 50) _Apple_Create_Function("Test", 50) _Apple_Create_Function("Test", 50) _Apple_Create_Function("Test", 50) _Apple_Create_Function("Test", 50) _Apple_State_Gui(1, $GUI) _Apple_Topmost_Check("Example") _Apple_Enable_Up_Down() While True Sleep(100) WEnd Func _0($action) If $action = 1 Then ElseIf $action = 0 Then EndIf EndFunc
  4. i searched but to no avail
  5. yes i think too change few lines but idk any one's !
  6. i Mean make web Page Mozilla Fire fox i know That #region Include #include <GuiStatusBar.au3> #include <GUIConstantsEx.au3> #include <ButtonConstants.au3> #Include <GuiToolTip.au3> #include <Process.au3> #include <IE.au3> #include <EditConstants.au3> #Include <GuiButton.au3> #include <WindowsConstants.au3> #include <String.au3> #endregion #region Set Options Opt('MustDeclareVars', 0) Opt("WinTitleMatchMode", 2) TrayTip("Click Tray Icon", "Click the Tray Icon to Pause the script at any time!", 5,1) #endregion $Ver = "1.0" #region Global Variables Global $Browser="IE",$WebPage="None",$UpdateMsg="Your Business" Global $aText[3] = [$UpdateMsg , $WebPage, $Browser] Global $aParts[3] = [100, 450, -1] Global $button_1, $button_2,$Go,$MainGUI,$hStatus,$InputWebsite,$fActivate,$label_1,$L1,$I1,$LastWebsite,$oIE #endregion #region Variables $oIE = "" $L1="Please enter web address - then press GO!" $I1="http://www." $LastWebsite = RegRead("HKEY_CURRENT_USERSoftwareWebBrowser","LastWebsite") If $LastWebsite <> "" Then $I1 = $LastWebsite #endregion #region Main GUI create $MainGUI = GUICreate("Browser Ver."&$Ver, 500, 80,10,@DesktopHeight-140) GUISetBkColor(0xE0FFFF ) _GUIToolTip_Activate($MainGUI, $fActivate = True ) $hStatus = _GUICtrlStatusBar_Create ($MainGUI, $aParts, $aText ) $Go = GUICtrlCreateButton("Go",437,01, 20, 20, $BS_DEFPUSHBUTTON ) GUISetIcon("C:UsersTheWarLOrds3DesktopTest.exe", -1) $button_1 = GUICtrlCreateButton("P", 458,01, 20, 20 ) $button_2 = GUICtrlCreateButton("R", 479,01, 20, 20 ) $label_1 = GUICtrlCreateLabel($L1, 10,10,230, 20 ) $InputWebsite= GUICtrlCreateInput($I1, 05,30,480, 20 ) #endregion #region Main Loop GUISetState() While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE Exit Case $button_1 Case $button_2 Case $Go _GoToSite() Case Else EndSwitch WEnd Exit #endregion ;Functions ---------------------------------------------------------------- Func _GoToSite() $LastWebsite=GUICtrlRead($InputWebsite) If $oIE = "" Then $oIE = _IECreate ($LastWebsite) Else _IENavigate($oIE,$LastWebsite) EndIf RegWrite("HKEY_CURRENT_USERSoftwareWebBrowser","LastWebsite", "REG_SZ", $LastWebsite) EndFunc But That For Internet Explorer and i went one for Mozilla Fire fox That i Mean
  7. can make web Page Mozilla Fire fox i know IE can Fire Fox or Only IE?
  8. i know now i maked it work now Thanks in any thing
  9. i dont understand but will Tryi Try but i fail
  10. But That not me went i went ID and Pass Not Pass Only or cant ID ?
  11. went ID and Password to protect My script
  12. i went Login and Password work i Need Write Login 123 if i write it 12345 say wrong Try again in and if i write it 123 and chick ok say Login correct and i went Passwrod 123 if write it 123 say correct if write it 12345 say Try again Help me if can #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form=Pass.kxf $Form2 = GUICreate("L&P", 169, 106, -1, -1, 0) GUISetBkColor(0x000000) $PasswordEdit = GUICtrlCreateInput("password", 48, 40, 73, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD)) GUICtrlSetBkColor(-1, 0xFF0000) $ButtonOk = GUICtrlCreateButton("&OK", -2, 64, 171, 17, $BS_NOTIFY) $EnterPassLabel = GUICtrlCreateLabel("pass", 8, 44, 26, 17, 0) GUICtrlSetBkColor(-1, 0xFF0000) $LoginEdit = GUICtrlCreateInput("", 48, 8, 73, 21) GUICtrlSetBkColor(-1, 0xFF0000) GUICtrlSetCursor (-1, 0) $Label1 = GUICtrlCreateLabel("Login", 8, 8, 30, 17) GUICtrlSetBkColor(-1, 0xFF0000) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd
  13. #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> Opt("GUIOnEventMode", 1) #Region ### START Koda GUI section ### Form=Form1.kxf $Form1 = GUICreate("T", 615, 157, 380, 128) GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close") GUISetOnEvent($GUI_EVENT_MINIMIZE, "Form1Minimize") GUISetOnEvent($GUI_EVENT_MAXIMIZE, "Form1Maximize") GUISetOnEvent($GUI_EVENT_RESTORE, "Form1Restore") $Button1 = GUICtrlCreateButton("1", 32, 16, 75, 25) GUICtrlSetOnEvent(-1, "Button1Click") $Button2 = GUICtrlCreateButton("2", 32, 56, 75, 25) GUICtrlSetOnEvent(-1, "Button2Click") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 Sleep(100) WEnd Func Button1Click() $Edit1 = GUICtrlCreateEdit("", 152, 0, 185, 89) GUICtrlSetData(-1, "Hi") GUICtrlSetOnEvent(-1, "Edit1Change") EndFunc Func Button2Click() $Edit2 = GUICtrlCreateEdit("", 392, 0, 185, 89) GUICtrlSetData(-1, "Hi2") GUICtrlSetOnEvent(-1, "Edit2Change") EndFunc Func Edit1Change() EndFunc Func Edit2Change() EndFunc Func Form1Close() EndFunc Func Form1Maximize() EndFunc Func Form1Minimize() EndFunc Func Form1Restore() EndFunc i went $Edit1 = GUICtrlCreateEdit("", 152, 0, 185, 89) GUICtrlSetData(-1, "Hi") GUICtrlSetOnEvent(-1, "Edit1Change") open in other page and $Edit2 = GUICtrlCreateEdit("", 392, 0, 185, 89) GUICtrlSetData(-1, "Hi2") GUICtrlSetOnEvent(-1, "Edit2Change") in other page can help ?
  14. i went the Code work went loading #include <GUIConstantsEx.au3> #include <ProgressConstants.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> Opt("GUIOnEventMode", 1) #Region ### START Koda GUI section ### Form=asawahammm.kxf $Form1 = GUICreate("Loading", 509, 165, 332, 296, BitOR($WS_SYSMENU,$WS_POPUP)) GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close") GUISetOnEvent($GUI_EVENT_MINIMIZE, "Form1Minimize") GUISetOnEvent($GUI_EVENT_MAXIMIZE, "Form1Maximize") GUISetOnEvent($GUI_EVENT_RESTORE, "Form1Restore") $Progress1 = GUICtrlCreateProgress(104, 120, 286, 17, BitOR($PBS_SMOOTH,$PBS_MARQUEE)) GUICtrlSetColor(-1, 0x00FF00) $Pic1 = GUICtrlCreatePic("C:UsersTheGirlFairyDesktopavatar4161748_2.jpg", 0, 0, 508, 164, BitOR($GUI_SS_DEFAULT_PIC,$WS_BORDER,$WS_CLIPSIBLINGS)) GUICtrlSetOnEvent(-1, "Pic1Click") $Label1 = GUICtrlCreateLabel("loading", 40, 0, 80, 27) GUICtrlSetFont(-1, 14, 800, 6, "Segoe Script") GUICtrlSetColor(-1, 0x00FF00) GUICtrlSetBkColor(-1, 0xC0C0C0) GUICtrlSetOnEvent(-1, "Label1Click") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 Sleep(100) WEnd Func Form1Close() EndFunc Func Form1Maximize() EndFunc Func Form1Minimize() EndFunc Func Form1Restore() EndFunc Func Label1Click() EndFunc Func Pic1Click() EndFunc Screen
×
×
  • Create New...