ich habe momentan ein ziehmlich verkruckstes Problem. In meinem Script sind Switch und While Schleifen. Autoit meint ich hätte die Schleifen zu oft zugemacht. Wenn ich die "Zumacher" aber entferne, beschwert es sich weil sie fehlen O_O
Danke im Vorraus
monte
PS: Der Code:
PHP Code:
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.8.0
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
HotKeySet("{F6}","stop")
#include <IE.au3>
#include <File.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\users\julius\desktop\ytbot\ytbotgui.kxf
$Form1_1 = GUICreate("YTBot", 362, 424, 201, 122)
$eingabe = GUICtrlCreateInput("", 48, 40, 209, 21)
$Start = GUICtrlCreateButton("Start", 272, 24, 75, 25)
$Link = GUICtrlCreateLabel("Link", 8, 40, 24, 17)
$Edit1 = GUICtrlCreateEdit("", 8, 80, 345, 305)
GUICtrlSetData(-1, "")
$StartGeheim = GUICtrlCreateButton("StartGeheim", 272, 48, 75, 25)
$Progress1 = GUICtrlCreateProgress(0, 400, 358, 17)
$optionen = GUICtrlCreateButton("Optionen", 8, 0, 339, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Start
While 1
_write_log($Edit1, "Versuch gestartet", $Form1_1)
_Log("Versuch gestartet")
For $i = 1 To 100 Step 1
GUICtrlSetData($Progress1, $i)
Sleep(10)
Next
$oIE = _IECreate(GUICtrlRead($eingabe))
_write_Log($Edit1, "Link geöffnet", $Form1_1)
_Log("Link geöffnet")
For $i = 1 To 100 Step 2
GUICtrlSetData($Progress1, $i)
Sleep(10)
Next
Sleep(2000)
_IEQuit($oIE)
_write_log($Edit1, "Link geschlossen", $Form1_1)
_Log("Link geschlossen")
For $i = 1 To 100 Step 3
GUICtrlSetData($Progress1, $i)
Sleep(10)
Next
For $i = 0 To 100 Step 4
GUICtrlSetData($Progress1, $i)
Sleep(10)
Next
Sleep(3000)
WEnd
Case $StartGeheim
While 1
_write_log($Edit1, "Versuch gestartet", $Form1_1)
_Log("Versuch gestartet")
$oIE = _IECreate(GUICtrlRead($eingabe), 0 ,0)
_write_Log($Edit1, "Link geöffnet", $Form1_1)
_Log("Link geöffnet")
Sleep(2000)
_IEQuit($oIE)
_write_log($Edit1, "Link geschlossen", $Form1_1)
_Log("Link geschlossen")
Sleep(3000)
WEnd
Case $Optionen
#Region ### START Koda GUI section ### Form=c:\users\julius\desktop\ytbot\ytbotguioptions.kxf
$Form2 = GUICreate("Form2", 615, 438, 192, 124)
$Label1 = GUICtrlCreateLabel("Um den MultiView-Modus zu aktivieren, gib an weiviele Links es sind un klicke auf Starten", 8, 8, 428, 17)
$Button1 = GUICtrlCreateButton("Start-MultiView", 472, 32, 123, 33)
$Label2 = GUICtrlCreateLabel("Um die abzuarbeitenden Links zu editieren, sieh dir die MultiView.ini an.", 8, 40, 339, 17)
$Input1 = GUICtrlCreateInput("Anzahl Links", 472, 8, 121, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$linkanzahl = (GUICtrlRead($Input1))
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
If $linkanzahl = 2 Then
$eingabemulti = Iniread("MultiView.ini","Links","First","Error")
$oIE = _IECreate($eingabemulti)
$eingabemulti2 = Iniread("MultiView.ini","Links","Second","Error")
$oIE = _IECreate($eingabemulti2)
ElseIf
If $linkanzahl = 3 Then
$eingabemulti = Iniread("MultiView.ini","Links","First","Error")
$oIE = _IECreate($eingabemulti)
$eingabemulti2 = Iniread("MultiView.ini","Links","Second","Error")
$oIE = _IECreate($eingabemulti2)
$eingabemulti3 = Iniread("MultiView.ini","Links","Third","Error")
$oIE = _IECreate($eingabemulti2)
ElseIf
If $linkanzahl = 4 Then
$eingabemulti = Iniread("MultiView.ini","Links","First","Error")
$oIE = _IECreate($eingabemulti)
$eingabemulti2 = Iniread("MultiView.ini","Links","Second","Error")
$oIE = _IECreate($eingabemulti2)
$eingabemulti3 = Iniread("MultiView.ini","Links","Third","Error")
$oIE = _IECreate($eingabemulti2)
$eingabemulti4 = Iniread("MultiView.ini","Links","Third","Error")
$oIE = _IECreate($eingabemulti2)
ElseIf
EndSwitch
WEnd
EndSwitch
WEnd
Func stop()
Exit
EndFunc
Func _write_log($iLog, $sText, $hWND)
GUICtrlSetData($iLog, GUICtrlRead($iLog)&@HOUR&":"&@MIN&":"&@SEC&" "&$sText&@CRLF)
ControlSend($hWND, "", $iLog, "{end}")
EndFunc
Func _Log($sText)
FileWrite(@ScriptDir & "\Log.txt", @HOUR&":"&@MIN&":"&@SEC&" "&$sText& @CRLF)
EndFunc
