Was isn mit der IP? die is dynamisch und das gesamte netzwerk hat nen tollen Firewall, welcher eingehende verbindungen einfach blockt. noch dazu kann man sehn woher die verbindung kam..
Ich kenne mein Netzwerk system auswendig und weiss immer genau wo welches Backup ist 
Beiträge von TimBlo
-
-
Ich bin auch der AutoIt suchti
Und aufräumen liegt mir nicht sehr
Ich plane an einem Projekt für die Ordnung auf dem Desktop, aber ihr dürft erst in 3 jahren damit rechnen
ich bin einfach zuuu langsam
Ich brauch die Taskliste so, weil dann mehr platz und übersicht da ist
Edit: Was fürn geiles Desktop hat denn i2c? sieht echt praktisch aus..
i2c: Is ja echt cool, du hast dieses Alk-Programm auch xD (Alcohol 120%)
Edit: Sorry dass ich das bild verschmiert hab, da klebt schon lange was aufm dektop (also was schwarze gemüse auf den anschriften) -
Hmm es is noch heute, ich komm net zu spät
Alles gute fürs 15 lebensjahr Bakku -
ich nehm nur das, was mir am nächsten kommt, ich hatte nie lust zu lernen was ne api is, oder wie man die verwendet... ausserdem arbeitet diese ja auch über http oder was?
und ich glaub nich dass das was mit ie zu tun hat, dass es nicht funktioniert,
# wenn doch, dann erklärs mir, dann find ich ne lösung oder schau mir die api an
# wenn nich, dann schau dir bitte mal den stringsplit an, wenn der funktioniert, hab ich kein problem das programm fertig zu stellen.EDIT: hab nochmal ne alternativlösung gefunden, solange es funktioniert is an _IE nichts auszusetzen!
Spoiler anzeigen
[autoit]#include "dnsupd_gui.au3"
[/autoit]
#include <IE.au3>
#include <Inet.au3>
#include <String.au3>
#include <Array.au3>
Global $mpar = "go"
_onEvent("start") ; This must be the first!!!
savedata("start")
GUIcontrol("start")
account_login("start")
server_set("serverlist")
While True
Sleep(300)
loopcommand("loop")
WEnd
Func GUIcontrol($mpar, $par1="", $par2="")
Switch $mpar
Case "start"
Global $gui
Global $gui_l_loggedon, $gui_i_username, $gui_i_password, $gui_b_acconect
Global $gui_i_aservadd, $gui_l_aservstate, $gui_b_aservload, $gui_b_aservact
Global $gui_l_acclink, $gui_b_sendip, $gui_b_getaccstate
Global $gui_l_myip, $gui_b_loadip, $gui_b_startservice
GenerateGUI()
GUICtrlSetData($gui_i_username, $sav_username)
GUICtrlSetData($gui_i_password, $sav_password)
GUICtrlSetData($gui_i_aservadd, $sav_aserv)
server_set("getmyip")
_onEvent("create", $gui, -3, "GUIcontrol", "disappear")
_onEvent("create", $gui, $gui_b_acconect, "account_login", "userlogin")
_onEvent("create", $gui, $gui_b_loadip, "server_set", "getmyip")
Case "disappear"
GUISetState(@SW_HIDE, $gui)
EndSwitch
EndFunc
Func account_login($mpar, $par1="")
Switch $mpar
Case "start"
Global $active = False
_IELoadWaitTimeout(23000);23 sec.
Global $oIE = _IECreate("https://www.dyndns.com/account/")
account_login("login")
Case "checklogin"
_IENavigate($oIE, "https://www.dyndns.com/account/")
$DOM = _IEDocReadHTML($oIE)
If StringInStr($DOM, "Lost Password?") <> 0 Then
Return False
EndIf
Return True
Case "login"
GUICtrlSetData($gui_l_loggedon, "Überprufen...")
If not account_login("checklogin") Then
GUICtrlSetData($gui_l_loggedon, "Einloggen...")
_IENavigate($oIE, "https://www.dyndns.com/account/")
$DOM = _IEDocReadHTML($oIE)
$ar = StringSplit($DOM, "toplogin", 1)
$ar2 = StringSplit($ar[2], "login", 1)
$ar3 = StringSplit($ar2[2], "' ")
$gObjNum = $ar3[1]
_IEFormElementSetValue(_IEGetObjById($oIE, "login"&$gObjNum&"_username"), $sav_username)
_IEFormElementSetValue(_IEGetObjById($oIE, "login"&$gObjNum&"_password"), $sav_password)
_IEAction(_IEGetObjById($oIE, "login"&$gObjNum&"_submit"), "click")
_IELoadWait($oIE)
If StringInStr(_IEDocReadHTML($oIE), "Username or password did not match.") <> 0 Then
GUICtrlSetData($gui_l_loggedon, "Fehler!")
Return 0
EndIf
EndIf
GUICtrlSetData($gui_l_loggedon, "Ja")
Case "logout"
;Logout
Case "userlogin"
savedata("saveusr", GUICtrlRead($gui_i_username))
savedata("savepwd", GUICtrlRead($gui_i_password))
account_login("login")
EndSwitch
EndFunc
Func server_set($mpar, $par1="")
Switch $mpar
Case "sendmyip"
Case "sendaserv"
Case "getlink"
Case "serverlist"
_IENavigate($oIE, "https://www.dyndns.com/account/services/hosts/")
_IELoadWait($oIE, 100)
$ar = _IETableWriteToArray(_IETableGetCollection($oIE, 0))
$string = UBound($ar, 2)
Dim $aRet[$string]
For $count = 1 To $string-1
$aRet[$count] = $ar[0][$count]
Next
$aRet[0] = $string-1
Return $aRet
Case "getmyip"
$localIP = _GetIP()
GUICtrlSetData($gui_l_myip, $localIP)
Case "exit"
If $active Then
server_set("sendaserv")
EndIf
account_login("logout")
Exit
EndSwitch
EndFunc
Func loopcommand($mpar, $par1="")
Switch $mpar
Case "start"
;Nothing
Case "loop"
If $active Then
server_set("loopgetip")
EndIf
Case "activate"
If $active Then
$active = False
GUICtrlSetData($gui_b_startservice, "Dienst STARTen")
Else
$active = True
GUICtrlSetData($gui_b_startservice, "Dienst STOPPen")
EndIf
EndSwitch
EndFunc
Func savedata($mpar, $par1="")
Switch $mpar
Case "start"
Global $sav_username = IniRead("dnsupd.ini", "account", "username", "Unbekannt")
Global $sav_password = _StringEncrypt(0, IniRead("dnsupd.ini", "account", "userid", "48F32E4F79617F3B3E2FE7CC30CDA50955DD"), "AHE36AGFDG36XGSDF756")
Global $sav_aserv = IniRead("dnsupd.ini", "account", "sec_server", "dein.ausweichserver.com")
Case "saveusr"
IniWrite("dnsupd.ini", "account", "username", $par1)
$sav_username = $par1
Case "savepwd"
IniWrite("dnsupd.ini", "account", "userid", _StringEncrypt(1, $par1, "AHE36AGFDG36XGSDF756"))
$sav_password = $par1
Case "saveserv"
IniWrite("dnsupd.ini", "account", "sec_server", $par1)
$sav_aserv = $par1
EndSwitch
EndFunc
Func _onEvent($mpar="go", $par0="0x0", $par1="0x0", $par2="", $par3="", $par4="")
Switch $mpar
Case "go"
For $count = 1 To $_onEvent_events[0][0]
If Not $_onEvent_loopTimeout Then
If $_onEvent_events[$count][0] = @GUI_CtrlId Or ($_onEvent_events[$count][4] = @GUI_WinHandle And $_onEvent_events[$count][0] = @GUI_CtrlId) Then
Call($_onEvent_events[$count][1], $_onEvent_events[$count][2], $_onEvent_events[$count][3])
Return 1
EndIf
Else
$_onEvent_loopTimeout = False
Return 0
EndIf
Next
Case "create"
$_onEvent_events[0][0] += 1
ReDim $_onEvent_events[$_onEvent_events[0][0]+1][5]
$_onEvent_events[$_onEvent_events[0][0]][4] = $par0 ;Fenster
$_onEvent_events[$_onEvent_events[0][0]][0] = $par1 ;ControlId
$_onEvent_events[$_onEvent_events[0][0]][1] = $par2 ;Funktion
$_onEvent_events[$_onEvent_events[0][0]][2] = $par3 ;Par1
$_onEvent_events[$_onEvent_events[0][0]][3] = $par4 ;Par2
GUISwitch($par0)
If $par1 > 0 Then
GUICtrlSetOnEvent($par1, "_onEvent")
Else
GUISetOnEvent($par1, "_onEvent")
EndIf
If @error Then
MsgBox(16, "fatal error", "onevent failed")
EndIf
Case "destruct"
For $count = 1 To $_onEvent_events[0][0]
If $_onEvent_events[$count][4] = $par0 And $_onEvent_events[$count][0] = $par1 Then
$_onEvent_events[$count][4] = $_onEvent_events[$_onEvent_events[0][0]][4]
$_onEvent_events[$count][0] = $_onEvent_events[$_onEvent_events[0][0]][0]
$_onEvent_events[$count][1] = $_onEvent_events[$_onEvent_events[0][0]][1]
$_onEvent_events[$count][2] = $_onEvent_events[$_onEvent_events[0][0]][2]
$_onEvent_events[$count][3] = $_onEvent_events[$_onEvent_events[0][0]][3]
ReDim $_onEvent_events[$_onEvent_events[0][0]][5]
$_onEvent_events[0][0] -= 1
$_onEvent_loopTimeout = True
ExitLoop
EndIf
Next
Case "start"
Opt("GUIOnEventMode", 1)
Opt("TrayOnEventMode", 1)
Global $_onEvent_events[1][5]
$_onEvent_events[0][0] = 0
Global $_onEvent_loopTimeout = False
EndSwitch
EndFunc
Func onAutoItExit()
_IEQuit($oIE)
EndFunc -
Also, hai leuts,
ich habe mal angefangen einen DynDNS Updater zu schreiben, womit ich dann ganz einfach einen ausweichserver einlinken kann... nun leider hackt es ein wenig beim auslesen der DNS namen, also der hosts... stringsplit will da irgendwie nicht mitmachen...
ich habs unter windows xp noch nicht getestet aber win 7 sollte ja nicht zum problem werden...
bitte schaut mal ob ihr etwas fehlerhaftes von mir findet, ist sicher ein doofer fehler...Spoiler anzeigen
[autoit]#include "dnsupd_gui.au3"
[/autoit]
#include <IE.au3>
#include <Inet.au3>
#include <String.au3>
Global $mpar = "go"
_onEvent("start") ; This must be the first!!!
savedata("start")
GUIcontrol("start")
account_login("start")
server_set("serverlist")
While True
Sleep(300)
loopcommand("loop")
WEnd
Func GUIcontrol($mpar, $par1="", $par2="")
Switch $mpar
Case "start"
Global $gui
Global $gui_l_loggedon, $gui_i_username, $gui_i_password, $gui_b_acconect
Global $gui_i_aservadd, $gui_l_aservstate, $gui_b_aservload, $gui_b_aservact
Global $gui_l_acclink, $gui_b_sendip, $gui_b_getaccstate
Global $gui_l_myip, $gui_b_loadip, $gui_b_startservice
GenerateGUI()
GUICtrlSetData($gui_i_username, $sav_username)
GUICtrlSetData($gui_i_password, $sav_password)
GUICtrlSetData($gui_i_aservadd, $sav_aserv)
server_set("getmyip")
_onEvent("create", $gui, -3, "GUIcontrol", "disappear")
_onEvent("create", $gui, $gui_b_acconect, "account_login", "userlogin")
_onEvent("create", $gui, $gui_b_loadip, "server_set", "getmyip")
Case "disappear"
GUISetState(@SW_HIDE, $gui)
EndSwitch
EndFunc
Func account_login($mpar, $par1="")
Switch $mpar
Case "start"
Global $active = False
_IELoadWaitTimeout(23000);23 sec.
Global $oIE = _IECreate("https://www.dyndns.com/account/")
account_login("login")
Case "checklogin"
_IENavigate($oIE, "https://www.dyndns.com/account/")
$DOM = _IEDocReadHTML($oIE)
If StringInStr($DOM, "Lost Password?") <> 0 Then
Return False
EndIf
Return True
Case "login"
GUICtrlSetData($gui_l_loggedon, "Überprufen...")
If not account_login("checklogin") Then
GUICtrlSetData($gui_l_loggedon, "Einloggen...")
_IENavigate($oIE, "https://www.dyndns.com/account/")
$DOM = _IEDocReadHTML($oIE)
$ar = StringSplit($DOM, "toplogin", 1)
$ar2 = StringSplit($ar[2], "login", 1)
$ar3 = StringSplit($ar2[2], "' ")
$gObjNum = $ar3[1]
_IEFormElementSetValue(_IEGetObjById($oIE, "login"&$gObjNum&"_username"), $sav_username)
_IEFormElementSetValue(_IEGetObjById($oIE, "login"&$gObjNum&"_password"), $sav_password)
_IEAction(_IEGetObjById($oIE, "login"&$gObjNum&"_submit"), "click")
_IELoadWait($oIE)
If StringInStr(_IEDocReadHTML($oIE), "Username or password did not match.") <> 0 Then
GUICtrlSetData($gui_l_loggedon, "Fehler!")
Return 0
EndIf
EndIf
GUICtrlSetData($gui_l_loggedon, "Ja")
Case "logout"
;Logout
Case "userlogin"
savedata("saveusr", GUICtrlRead($gui_i_username))
savedata("savepwd", GUICtrlRead($gui_i_password))
account_login("login")
EndSwitch
EndFunc
Func server_set($mpar, $par1="")
Switch $mpar
Case "sendmyip"
Case "sendaserv"
Case "getlink"
Case "serverlist"
_IENavigate($oIE, "https://www.dyndns.com/account/services/hosts/")
_IELoadWait($oIE, 100)
$DOM = _IEDocReadHTML($oIE)
$ar = StringSplit($DOM, "table", 1)
$ar2 = StringSplit($ar[2], 'tr', 1)
Dim $aRet[$ar2[0]]
For $count = 3 To $ar2[0] Step 2
$ar3 = StringSplit($ar2[$count], '"')
$aRet[$count-1] = $ar3[4]
Next
$aRet[0] = $ar2[0]-1
;debug-s
$string = ""
For $count = 1 To $aRet[0]
$string &= $aRet[$count]&"; "
Next
MsgBox(0, "debug check - server list", $string)
;debug-e
Return $aRet
Case "getmyip"
$localIP = _GetIP()
GUICtrlSetData($gui_l_myip, $localIP)
Case "exit"
If $active Then
server_set("sendaserv")
EndIf
account_login("logout")
Exit
EndSwitch
EndFunc
Func loopcommand($mpar, $par1="")
Switch $mpar
Case "start"
;Nothing
Case "loop"
If $active Then
server_set("loopgetip")
EndIf
Case "activate"
If $active Then
$active = False
GUICtrlSetData($gui_b_startservice, "Dienst STARTen")
Else
$active = True
GUICtrlSetData($gui_b_startservice, "Dienst STOPPen")
EndIf
EndSwitch
EndFunc
Func savedata($mpar, $par1="")
Switch $mpar
Case "start"
Global $sav_username = IniRead("dnsupd.ini", "account", "username", "Unbekannt")
Global $sav_password = _StringEncrypt(0, IniRead("dnsupd.ini", "account", "userid", "48F32E4F79617F3B3E2FE7CC30CDA50955DD"), "AHE36AGFDG36XGSDF756")
Global $sav_aserv = IniRead("dnsupd.ini", "account", "sec_server", "dein.ausweichserver.com")
Case "saveusr"
IniWrite("dnsupd.ini", "account", "username", $par1)
$sav_username = $par1
Case "savepwd"
IniWrite("dnsupd.ini", "account", "userid", _StringEncrypt(1, $par1, "AHE36AGFDG36XGSDF756"))
$sav_password = $par1
Case "saveserv"
IniWrite("dnsupd.ini", "account", "sec_server", $par1)
$sav_aserv = $par1
EndSwitch
EndFunc
Func _onEvent($mpar="go", $par0="0x0", $par1="0x0", $par2="", $par3="", $par4="")
Switch $mpar
Case "go"
For $count = 1 To $_onEvent_events[0][0]
If Not $_onEvent_loopTimeout Then
If $_onEvent_events[$count][0] = @GUI_CtrlId Or ($_onEvent_events[$count][4] = @GUI_WinHandle And $_onEvent_events[$count][0] = @GUI_CtrlId) Then
Call($_onEvent_events[$count][1], $_onEvent_events[$count][2], $_onEvent_events[$count][3])
Return 1
EndIf
Else
$_onEvent_loopTimeout = False
Return 0
EndIf
Next
Case "create"
$_onEvent_events[0][0] += 1
ReDim $_onEvent_events[$_onEvent_events[0][0]+1][5]
$_onEvent_events[$_onEvent_events[0][0]][4] = $par0 ;Fenster
$_onEvent_events[$_onEvent_events[0][0]][0] = $par1 ;ControlId
$_onEvent_events[$_onEvent_events[0][0]][1] = $par2 ;Funktion
$_onEvent_events[$_onEvent_events[0][0]][2] = $par3 ;Par1
$_onEvent_events[$_onEvent_events[0][0]][3] = $par4 ;Par2
GUISwitch($par0)
If $par1 > 0 Then
GUICtrlSetOnEvent($par1, "_onEvent")
Else
GUISetOnEvent($par1, "_onEvent")
EndIf
If @error Then
MsgBox(16, "fatal error", "onevent failed")
EndIf
Case "destruct"
For $count = 1 To $_onEvent_events[0][0]
If $_onEvent_events[$count][4] = $par0 And $_onEvent_events[$count][0] = $par1 Then
$_onEvent_events[$count][4] = $_onEvent_events[$_onEvent_events[0][0]][4]
$_onEvent_events[$count][0] = $_onEvent_events[$_onEvent_events[0][0]][0]
$_onEvent_events[$count][1] = $_onEvent_events[$_onEvent_events[0][0]][1]
$_onEvent_events[$count][2] = $_onEvent_events[$_onEvent_events[0][0]][2]
$_onEvent_events[$count][3] = $_onEvent_events[$_onEvent_events[0][0]][3]
ReDim $_onEvent_events[$_onEvent_events[0][0]][5]
$_onEvent_events[0][0] -= 1
$_onEvent_loopTimeout = True
ExitLoop
EndIf
Next
Case "start"
Opt("GUIOnEventMode", 1)
Opt("TrayOnEventMode", 1)
Global $_onEvent_events[1][5]
$_onEvent_events[0][0] = 0
Global $_onEvent_loopTimeout = False
EndSwitch
EndFuncEDIT: im bereich der linie 86 hackt es...
-
Rekursiv = Sie ruft sich selber auf oder??
wenn du das meinst, dann kann ich dir leider nicht glauben, sowas würde dann den CPU auslasten...
passiert aber nie, es muss irgendwie an der Guieinrichtung liegen... ich hab doch keine ahnung was ich tun muss
EDIT: ausserdem muss ich eigentlich sagen: ich kann da nirgends ne rekursion finden... aber ich hab gesagt es is kompliziert -> ne möchtegern OOP -
Also, ich hab n merkwürdiges Problem...
und nen komplizierten Skriptcode mit nem möchtegern-OOP
leider konnte ich nach längerer Zeit den Fehler nicht killen, jetzt brauchts VerstärkungIch habe versucht die Taskliste nachzubauen
habs auch geschafft
also das Aussehen ist nachgebaut, die Funktion will ich lieber nicht nachbeuen
Also ich hoste mal das Skript, das Problem lautet:
Skript reagiert nicht wenn man auf ein Pic im Startmenü clickt (Sperren & Ausschalten)Spoiler anzeigen
[autoit]#Region initialize
[/autoit]
#NoTrayIcon
#include <GuiListView.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
Opt("WinTitleMatchMode", 4)
Global $mpar = "go"
_onEvent("start")
configuration("start")
taskbar("create")
programm("start")
desklock("start")
Icons("start")
#EndRegion
While True
taskbar()
sleep(300)
programm("work")
WEnd
Func taskbar($mpar="work", $par1="")
Switch $mpar
Case "work"
$taskbar_pos = WinGetPos($taskbar_shellgui)
WinMove($taskbar_gui, "", @DesktopWidth-$taskbar_pos[2]-$taskbar_pos[0], @DesktopHeight-$taskbar_pos[3]-$taskbar_pos[1], $taskbar_pos[2], $taskbar_pos[3], 1)
If $taskbar_pos[2] = @DesktopWidth And $taskbar_align = 0 Then
GUICtrlDelete($taskbar_b1)
GUICtrlDelete($taskbar_b2)
GUISwitch($taskbar_gui)
$taskbar_b1 = GUICtrlCreatePic("blue_b3.bmp", 102, 0, @DesktopWidth-102, 22)
$taskbar_b2 = GUICtrlCreatePic("blue_b4.bmp", 0, $taskbar_pos[3]-14, @DesktopWidth, 14)
$taskbar_align = 1
GUICtrlSetImage($programm_start, "blue_start2.bmp")
ElseIf $taskbar_pos[3] = @DesktopHeight And $taskbar_align = 1 Then
GUICtrlDelete($taskbar_b1)
GUICtrlDelete($taskbar_b2)
GUISwitch($taskbar_gui)
$taskbar_b1 = GUICtrlCreatePic("blue_b1.bmp", 0, 33, 13, @DesktopHeight-33)
$taskbar_b2 = GUICtrlCreatePic("blue_b2.bmp", $taskbar_pos[2]-13, 0, 13, @DesktopHeight)
$taskbar_align = 0
GUICtrlSetImage($programm_start, "blue_start1.bmp")
EndIf
$wins = WinList()
If $taskbar_pos[2] = @DesktopWidth Then
$width = @DesktopWidth
$wpos = 0
Else
$width = @DesktopWidth-$taskbar_pos[2]-$taskbar_pos[2]
$wpos = $taskbar_pos[2]
EndIf
If $taskbar_pos[3] = @DesktopHeight Then
$height = @DesktopHeight
$hpos = 0
Else
$height = @DesktopHeight-$taskbar_pos[3]-$taskbar_pos[3]
$hpos = $taskbar_pos[3]
EndIf
For $c = 1 To $wins[0][0]
If BitAND(WinGetState($wins[$c][1]), 32) Then
$pos2 = WinGetPos($wins[$c][1], "")
If $pos2[0] > -7 And $pos2[0] < @DesktopWidth-7 And $pos2[1] > -7 And $pos2[1] < @DesktopHeight-7 Then
WinMove($wins[$c][1], "", $wpos-4, $hpos-4, $width+8, $height+8, 1)
EndIf
EndIf
Next
Case "create"
Global $taskbar_shellgui = WinGetHandle("classname=Shell_TrayWnd")
Global $taskbar_pos = WinGetPos($taskbar_shellgui)
Global $taskbar_gui = GUICreate("Taskbar 2", $taskbar_pos[2], $taskbar_pos[3], @DesktopWidth-$taskbar_pos[2]-$taskbar_pos[0], @DesktopHeight-$taskbar_pos[3]-$taskbar_pos[1], $WS_POPUP, $WS_EX_TOOLWINDOW)
If $taskbar_pos[2] = @DesktopWidth Then
Global $taskbar_b1 = GUICtrlCreatePic("blue_b3.bmp", 102, 0, @DesktopWidth-102, 22)
Global $taskbar_b2 = GUICtrlCreatePic("blue_b4.bmp", 0, $taskbar_pos[3]-14, @DesktopWidth, 14)
Global $taskbar_align = 1
ElseIf $taskbar_pos[3] = @DesktopHeight Then
Global $taskbar_b1 = GUICtrlCreatePic("blue_b1.bmp", 0, 33, 13, @DesktopHeight-33)
Global $taskbar_b2 = GUICtrlCreatePic("blue_b2.bmp", $taskbar_pos[2]-13, 0, 13, @DesktopHeight)
Global $taskbar_align = 0
EndIf
Global $taskbar_contextmenu = GUICtrlCreateContextMenu()
GUISetBkColor(0x235BDD, $taskbar_gui)
WinSetOnTop($taskbar_gui, "", 1)
Global $taskbar_show = True
GUISetState(@SW_SHOW, $taskbar_gui)
EndSwitch
EndFunc
Func icons($mpar="save", $par1="")
Switch $mpar
Case "save"
IniDelete(@ProgramFilesDir&"\TimBlo\Tasklist\Icon0.icn", "Icons")
For $c = 0 To _GUICtrlListView_GetItemCount($icons_mhandle) - 1
$sIconText = _GUICtrlListView_GetItemText($icons_mhandle, $c)
$aPos = _GUICtrlListView_GetItemPosition($icons_mhandle, $c)
IniWrite(@ProgramFilesDir&"\TimBlo\Tasklist\Icon0.icn", "Icons", $sIconText, $aPos[0] & ";" & $aPos[1])
Next
Case "load"
For $c = 0 To _GUICtrlListView_GetItemCount($icons_mhandle) - 1
$sIconText = _GUICtrlListView_GetItemText($icons_mhandle, $c)
$aPos = StringSplit(IniRead(@ProgramFilesDir&"\TimBlo\Tasklist\Icon0.icn", "Icons", $sIconText, "0"), ";")
If $aPos[0] == 2 Then
_GUICtrlListView_SetItemPosition($icons_mhandle, $c, $aPos[1], $aPos[2])
EndIf
Next
Case "start"
Global $icons_mhandle = ControlGetHandle("Program Manager", "", "SysListView321")
$Icons_menu = GUICtrlCreateMenu("Icons", $taskbar_contextmenu)
$Icons_load = GUICtrlCreateMenuItem("Icons ausrichten", $Icons_menu)
_onEvent("create", $taskbar_gui, $Icons_load, "icons", "load")
$Icons_save = GUICtrlCreateMenuItem("Icons speichern", $Icons_menu)
_onEvent("create", $taskbar_gui, $Icons_save, "icons", "save")
EndSwitch
EndFunc
Func programm($mpar="go", $par1="")
Switch $mpar
Case "start"
If $taskbar_pos[2] = @DesktopWidth Then
Global $programm_start = GUICtrlCreatePic("blue_start2.bmp", 0, 0, 102, 33)
ElseIf $taskbar_pos[3] = @DesktopHeight Then
global $programm_start = GUICtrlCreatePic("blue_start1.bmp", 0, 0, 102, 33)
EndIf
_onEvent("create", $taskbar_gui, $programm_start, "programm", "startmenu")
Global $programm_startgui = GUICreate("Startmenu2", 470, 650, 0, 0, $WS_POPUP, $WS_EX_TOOLWINDOW)
GUISetBkColor(0x1B6BD1, $programm_startgui)
GUICtrlCreatePic("blue_header.bmp", 0, 0, 470, 65)
GUICtrlCreatePic("blue_footer.bmp", 0, 610, 470, 41)
Global $programm_exit = GUICtrlCreatePic("blue_exit.bmp", 371, 616, 92, 29)
_onEvent("create", $programm_startgui, $programm_exit, "OnAutoItExit")
WinSetOnTop($programm_startgui, "", 1)
Global $programm_menu_show = False
Case "startmenu"
$left = @DesktopWidth-$taskbar_pos[2]-$taskbar_pos[0]
$top = @DesktopHeight-$taskbar_pos[3]-$taskbar_pos[1]+32
$right = $left+470
$bottom = $top+650
If $right > @DesktopWidth Then
$left -= 470
EndIf
If $bottom > @DesktopHeight Then
$top -= 650
EndIf
WinMove($programm_startgui, "", $left, $top, 470, 650, 0)
If $taskbar_align = 0 Then
GUICtrlSetImage($programm_start, "blue_start3.bmp")
Else
GUICtrlSetImage($programm_start, "blue_start4.bmp")
EndIf
GUISetState(@SW_SHOW, $programm_startgui)
$programm_menu_show = True
Case "work"
If $programm_menu_show Then
If not WinActive($programm_startgui) Then
GUISetState(@SW_HIDE, $programm_startgui)
If $taskbar_align = 0 Then
GUICtrlSetImage($programm_start, "blue_start1.bmp")
Else
GUICtrlSetImage($programm_start, "blue_start2.bmp")
EndIf
$programm_menu_show = False
EndIf
EndIf
EndSwitch
EndFunc
Func configuration($mpar="go", $par1="", $par2="", $par3="", $par4=1)
Switch $mpar
Case "go"
return IniRead($configuration_files[$par4], $par1, $par2, $par3)
Case "save"
IniWrite($configuration_files[$par4], $par1, $par2, $par3)
Case "start"
Global $configuration_files[2]
$configuration_files[1] = @ProgramFilesDir&"\TimBlo\Tasklist\configuration.ini"
EndSwitch
EndFunc
Func desklock($mpar="unlock", $par1="", $par2="")
Switch $mpar
Case "start"
Global $programm_lock = GUICtrlCreatePic("blue_lock.bmp", 285, 616, 73, 31)
_onEvent("create", $programm_startgui, $programm_lock, "desklock", "lock")
$pos2 = WinGetPos("Program Manager")
$desklock_gui = GUICreate("Desklocker", $pos2[2], $pos2[3], $pos2[0], $pos2[1], $WS_POPUP, $WS_EX_TOOLWINDOW)
Case "lock"
$desklock_password = configuration("go", "desklock", "password", "none")
If $desklock_password <> "none" Then
$pos2 = WinGetPos("Program Manager")
WinMove($desklock_gui, "", $pos2[0], $pos2[1], $pos2[2], $pos2[3], 0)
GUISetState(@SW_SHOW, $desklock_gui)
WinSetOnTop($desklock_gui, "", 1)
Else
MsgBox(48, "Fehler", "Der Desktop kann nicht ohne Passwort gesperrt werden.")
EndIf
EndSwitch
EndFunc
Func _onEvent($mpar="go", $par0="0x0", $par1="0x0", $par2="", $par3="", $par4="")
Switch $mpar
Case "go"
For $c = 1 To $_onEvent_events[0][0]
If $_onEvent_events[$c][0] = @GUI_CtrlId Then
Call($_onEvent_events[$c][1], $_onEvent_events[$c][2], $_onEvent_events[$c][3])
MsgBox(0, "function endet", $_onEvent_events[$c][1]&"("&$_onEvent_events[$c][2]&", "&$_onEvent_events[$c][3]&")")
Return 1
EndIf
Next
MsgBox(0, "Fehler", "GuiControl nicht erkannt")
Case "create"
$_onEvent_events[0][0] += 1
ReDim $_onEvent_events[$_onEvent_events[0][0]+1][4]
$_onEvent_events[$_onEvent_events[0][0]][0] = $par1 ;ControlId
$_onEvent_events[$_onEvent_events[0][0]][1] = $par2 ;Funktion
$_onEvent_events[$_onEvent_events[0][0]][2] = $par3 ;Par1
$_onEvent_events[$_onEvent_events[0][0]][3] = $par4 ;Par2
GUISwitch($par0)
GUICtrlSetOnEvent($par1, "_onEvent")
Case "start"
Global $_onEvent_events[1][4]
$_onEvent_events[0][0] = 0
EndSwitch
EndFunc
Func OnAutoItExit($mpar=0, $par1=0)
Exit
EndFunc
Da die entsprechenden Grafiken vllt auch da sein sollten hab ich ne zip gemacht und angehängt -
sry wenn ich frage, aber Office 2007 automatisieren???
wozu soll das nötig sein - den Key musst du ja sowiso selber eintragen...
und der rest ging bei mir komplett vonaleine...
und ausserdem muss ich sagen dass das neue Office 2007 nicht gerade recourcen sparend ist..!
würd dir davon abraten, aber erklär doch nochmal was genau du haben willst... -
du kannst ein programm erfinden, welches den Flashplayer ersetzt und dann kannse machen was du willst - für viele bot schreiber ein traum haha.
aber, dann musst du halt mit mouseclick machen, is ja nich so schwer, IE gibt dir schnell die bildschirm position des contorls und Au3info oder so gibt dir die control click pos.... -
So habs nen bissel gekürzt
es sollte nun funktionieren:Spoiler anzeigen
[autoit]#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.1.1 (beta)
[/autoit] [autoit][/autoit] [autoit]
Author: blackY.Script Function:
[/autoit] [autoit][/autoit] [autoit]
Instalkit#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Example()
[/autoit] [autoit][/autoit] [autoit]
Func Example()
#include <GUIConstants.au3>
GUICreate("Install by. blackY", 700, 500, 250, 80)
GUICtrlCreateCombo("Standart", 10, 10) ; create first item
GUICtrlSetData(-1, "Benutzerdefiniert|Vollständig", "Vollständig")$Install=GUICtrlCreateButton ("Instalieren", 12, 450, 95, 25)
[/autoit] [autoit][/autoit] [autoit];Func Example()
[/autoit] [autoit][/autoit] [autoit]
Local $tab, $tab0, $tab1, $tab2, $tab3, $tab4, $tab5$tab = GUICtrlCreateTab(50, 115, 600, 350)
[/autoit] [autoit][/autoit] [autoit]
$tab0 = GUICtrlCreateTabItem("Office Bereich")
GUICtrlSetState(-1, $GUI_SHOW); will be display first
;links
$checkCN57 = GUICtrlCreateCheckbox("CHECKBOX 1", 130, 175, 120, 20)
$checkCN58 = GUICtrlCreateCheckbox("CHECKBOX 2", 130, 215, 120, 20)
$checkCN59 = GUICtrlCreateCheckbox("CHECKBOX 3", 130, 255, 120, 20)
$checkCN60 = GUICtrlCreateCheckbox("CHECKBOX 4", 130, 295, 120, 20)
$checkCN61 = GUICtrlCreateCheckbox("CHECKBOX 5", 130, 335, 120, 20)
$checkCN62 = GUICtrlCreateCheckbox("CHECKBOX 6", 130, 375, 120, 20)
$checkCN63 = GUICtrlCreateCheckbox("CHECKBOX 7", 130, 415, 120, 20)
;rechts
$checkCN64 = GUICtrlCreateCheckbox("CHECKBOX 1", 430, 175, 120, 20)
$checkCN65 = GUICtrlCreateCheckbox("CHECKBOX 2", 430, 215, 120, 20)
$checkCN66 = GUICtrlCreateCheckbox("CHECKBOX 3", 430, 255, 120, 20)
$checkCN67 = GUICtrlCreateCheckbox("CHECKBOX 4", 430, 295, 120, 20)
$checkCN68 = GUICtrlCreateCheckbox("CHECKBOX 5", 430, 335, 120, 20)
$checkCN69 = GUICtrlCreateCheckbox("CHECKBOX 6", 430, 375, 120, 20)
$checkCN70 = GUICtrlCreateCheckbox("CHECKBOX 7", 430, 415, 120, 20)$tab1 = GUICtrlCreateTabItem("Multimedia")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlCreateLabel("label1", 30, 80, 50, 20)
;links
$checkCN43 = GUICtrlCreateCheckbox("CHECKBOX 1", 130, 175, 120, 20)
$checkCN44 = GUICtrlCreateCheckbox("CHECKBOX 2", 130, 215, 120, 20)
$checkCN45 = GUICtrlCreateCheckbox("CHECKBOX 3", 130, 255, 120, 20)
$checkCN46 = GUICtrlCreateCheckbox("CHECKBOX 4", 130, 295, 120, 20)
$checkCN47 = GUICtrlCreateCheckbox("CHECKBOX 5", 130, 335, 120, 20)
$checkCN48 = GUICtrlCreateCheckbox("CHECKBOX 6", 130, 375, 120, 20)
$checkCN49 = GUICtrlCreateCheckbox("CHECKBOX 7", 130, 415, 120, 20)
;rechts
$checkCN50 = GUICtrlCreateCheckbox("CHECKBOX 1", 430, 175, 120, 20)
$checkCN51 = GUICtrlCreateCheckbox("CHECKBOX 2", 430, 215, 120, 20)
$checkCN52 = GUICtrlCreateCheckbox("CHECKBOX 3", 430, 255, 120, 20)
$checkCN53 = GUICtrlCreateCheckbox("CHECKBOX 4", 430, 295, 120, 20)
$checkCN54 = GUICtrlCreateCheckbox("CHECKBOX 5", 430, 335, 120, 20)
$checkCN55 = GUICtrlCreateCheckbox("CHECKBOX 6", 430, 375, 120, 20)
$checkCN56 = GUICtrlCreateCheckbox("CHECKBOX 7", 430, 415, 120, 20)$tab2 = GUICtrlCreateTabItem("Internet Bereich")
[/autoit] [autoit][/autoit] [autoit]
GUICtrlCreateLabel("label2", 30, 80, 50, 20)
;links
$checkCN29 = GUICtrlCreateCheckbox("CHECKBOX 1", 130, 175, 120, 20)
$checkCN30 = GUICtrlCreateCheckbox("CHECKBOX 2", 130, 215, 120, 20)
$checkCN31 = GUICtrlCreateCheckbox("CHECKBOX 3", 130, 255, 120, 20)
$checkCN32 = GUICtrlCreateCheckbox("CHECKBOX 4", 130, 295, 120, 20)
$checkCN33 = GUICtrlCreateCheckbox("CHECKBOX 5", 130, 335, 120, 20)
$checkCN34 = GUICtrlCreateCheckbox("CHECKBOX 6", 130, 375, 120, 20)
$checkCN35 = GUICtrlCreateCheckbox("CHECKBOX 7", 130, 415, 120, 20)
;rechts
$checkCN36 = GUICtrlCreateCheckbox("CHECKBOX 1", 430, 175, 120, 20)
$checkCN37 = GUICtrlCreateCheckbox("CHECKBOX 2", 430, 215, 120, 20)
$checkCN38 = GUICtrlCreateCheckbox("CHECKBOX 3", 430, 255, 120, 20)
$checkCN39 = GUICtrlCreateCheckbox("CHECKBOX 4", 430, 295, 120, 20)
$checkCN40 = GUICtrlCreateCheckbox("CHECKBOX 5", 430, 335, 120, 20)
$checkCN41 = GUICtrlCreateCheckbox("CHECKBOX 6", 430, 375, 120, 20)
$checkCN42 = GUICtrlCreateCheckbox("CHECKBOX 7", 430, 415, 120, 20)$tab3 = GUICtrlCreateTabItem("System")
[/autoit] [autoit][/autoit] [autoit]
GUICtrlCreateLabel("label3", 30, 80, 50, 20)
;links
$checkCN15 = GUICtrlCreateCheckbox("CHECKBOX 1", 130, 175, 120, 20)
$checkCN16 = GUICtrlCreateCheckbox("CHECKBOX 2", 130, 215, 120, 20)
$checkCN17 = GUICtrlCreateCheckbox("CHECKBOX 3", 130, 255, 120, 20)
$checkCN18 = GUICtrlCreateCheckbox("CHECKBOX 4", 130, 295, 120, 20)
$checkCN19 = GUICtrlCreateCheckbox("CHECKBOX 5", 130, 335, 120, 20)
$checkCN20 = GUICtrlCreateCheckbox("CHECKBOX 6", 130, 375, 120, 20)
$checkCN21 = GUICtrlCreateCheckbox("CHECKBOX 7", 130, 415, 120, 20)
;rechts
$checkCN22 = GUICtrlCreateCheckbox("CHECKBOX 1", 430, 175, 120, 20)
$checkCN23 = GUICtrlCreateCheckbox("CHECKBOX 2", 430, 215, 120, 20)
$checkCN24 = GUICtrlCreateCheckbox("CHECKBOX 3", 430, 255, 120, 20)
$checkCN25 = GUICtrlCreateCheckbox("CHECKBOX 4", 430, 295, 120, 20)
$checkCN26 = GUICtrlCreateCheckbox("CHECKBOX 5", 430, 335, 120, 20)
$checkCN27 = GUICtrlCreateCheckbox("CHECKBOX 6", 430, 375, 120, 20)
$checkCN28 = GUICtrlCreateCheckbox("CHECKBOX 7", 430, 415, 120, 20)$tab4 = GUICtrlCreateTabItem("Antivirus Software")
[/autoit] [autoit][/autoit] [autoit]
GUICtrlCreateLabel("label4", 30, 80, 50, 20)
;links
$checkCN1 = GUICtrlCreateCheckbox("TuneUp Utilities 2010", 130, 175, 120, 20)
$checkCN2 = GUICtrlCreateCheckbox("CHECKBOX 2", 130, 215, 120, 20)
$checkCN3 = GUICtrlCreateCheckbox("CHECKBOX 3", 130, 255, 120, 20)
$checkCN4 = GUICtrlCreateCheckbox("CHECKBOX 4", 130, 295, 120, 20)
$checkCN5 = GUICtrlCreateCheckbox("CHECKBOX 5", 130, 335, 120, 20)
$checkCN6 = GUICtrlCreateCheckbox("CHECKBOX 6", 130, 375, 120, 20)
$checkCN7 = GUICtrlCreateCheckbox("CHECKBOX 7", 130, 415, 120, 20)
;rechts
$checkCN8 = GUICtrlCreateCheckbox("CHECKBOX 1", 430, 175, 120, 20)
$checkCN9 = GUICtrlCreateCheckbox("CHECKBOX 2", 430, 215, 120, 20)
$checkCN10 = GUICtrlCreateCheckbox("CHECKBOX 3", 430, 255, 120, 20)
$checkCN11 = GUICtrlCreateCheckbox("CHECKBOX 4", 430, 295, 120, 20)
$checkCN12 = GUICtrlCreateCheckbox("CHECKBOX 5", 430, 335, 120, 20)
$checkCN13 = GUICtrlCreateCheckbox("CHECKBOX 6", 430, 375, 120, 20)
$checkCN14 = GUICtrlCreateCheckbox("CHECKBOX 7", 430, 415, 120, 20)
$tab5 = GUICtrlCreateTabItem("Information !!")
GUICtrlCreateLabel("label4", 30, 80, 50, 20)
GUICtrlCreateTabItem(""); end tabitem definition
GUISetState()
While 1
$msg = GUIGetMsg()If $msg = $GUI_EVENT_CLOSE Then ExitLoop
[/autoit]
If $msg = $tab Then
MsgBox(0, "hallo", "hai")
EndIf
WEnd
EndFunc ;==>ExampleDu hattest GUIOnEventMode drin, darum hatts nich geklappt
EDIT: So, hier noch mit der Funktion die alle Checkboxen Markiert...
Spoiler anzeigen
[autoit]#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.1.1 (beta)
[/autoit] [autoit][/autoit] [autoit]
Author: blackY.Script Function:
[/autoit] [autoit][/autoit] [autoit]
Windows 7 Welcome#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
Example()
Func Example()
GUICreate("Windows7 extra by. blackY", 700, 500, 250, 80)
GUISetState(@SW_SHOW)
$combo = GUICtrlCreateCombo("Standart", 10, 10) ; create first item
GUICtrlSetData(-1, "Benutzerdefiniert|Vollständig", "Vollständig") ; add other item snd set a new default
$Install=GUICtrlCreateButton ("Instalieren", 12, 450, 95, 25)
$Exit=GUICtrlCreateButton ("Beenden", 580, 450, 95, 25)$tab = GUICtrlCreateTab(50, 115, 600, 350)
[/autoit] [autoit][/autoit] [autoit]
$tab0 = GUICtrlCreateTabItem("Office Bereich")
Global $checks[71]
GUICtrlSetState(-1, $GUI_SHOW); will be display first
;links
$checks[57] = GUICtrlCreateCheckbox("CHECKBOX 1", 130, 175, 120, 20)
$checks[58] = GUICtrlCreateCheckbox("CHECKBOX 2", 130, 215, 120, 20)
$checks[59] = GUICtrlCreateCheckbox("CHECKBOX 3", 130, 255, 120, 20)
$checks[60] = GUICtrlCreateCheckbox("CHECKBOX 4", 130, 295, 120, 20)
$checks[61] = GUICtrlCreateCheckbox("CHECKBOX 5", 130, 335, 120, 20)
$checks[62] = GUICtrlCreateCheckbox("CHECKBOX 6", 130, 375, 120, 20)
$checks[63] = GUICtrlCreateCheckbox("CHECKBOX 7", 130, 415, 120, 20)
;rechts
$checks[64] = GUICtrlCreateCheckbox("CHECKBOX 1", 430, 175, 120, 20)
$checks[65] = GUICtrlCreateCheckbox("CHECKBOX 2", 430, 215, 120, 20)
$checks[66] = GUICtrlCreateCheckbox("CHECKBOX 3", 430, 255, 120, 20)
$checks[67] = GUICtrlCreateCheckbox("CHECKBOX 4", 430, 295, 120, 20)
$checks[68] = GUICtrlCreateCheckbox("CHECKBOX 5", 430, 335, 120, 20)
$checks[69] = GUICtrlCreateCheckbox("CHECKBOX 6", 430, 375, 120, 20)
$checks[70] = GUICtrlCreateCheckbox("CHECKBOX 7", 430, 415, 120, 20)$tab1 = GUICtrlCreateTabItem("Multimedia")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlCreateLabel("label1", 30, 80, 50, 20)
;links
$checks[43] = GUICtrlCreateCheckbox("iTunes", 130, 175, 120, 20)
$checks[44] = GUICtrlCreateCheckbox("CHECKBOX 2", 130, 215, 120, 20)
$checks[45] = GUICtrlCreateCheckbox("CHECKBOX 3", 130, 255, 120, 20)
$checks[46] = GUICtrlCreateCheckbox("CHECKBOX 4", 130, 295, 120, 20)
$checks[47] = GUICtrlCreateCheckbox("CHECKBOX 5", 130, 335, 120, 20)
$checks[48] = GUICtrlCreateCheckbox("CHECKBOX 6", 130, 375, 120, 20)
$checks[49] = GUICtrlCreateCheckbox("CHECKBOX 7", 130, 415, 120, 20)
;rechts
$checks[50] = GUICtrlCreateCheckbox("CHECKBOX 1", 430, 175, 120, 20)
$checks[51] = GUICtrlCreateCheckbox("CHECKBOX 2", 430, 215, 120, 20)
$checks[52] = GUICtrlCreateCheckbox("CHECKBOX 3", 430, 255, 120, 20)
$checks[53] = GUICtrlCreateCheckbox("CHECKBOX 4", 430, 295, 120, 20)
$checks[54] = GUICtrlCreateCheckbox("CHECKBOX 5", 430, 335, 120, 20)
$checks[55] = GUICtrlCreateCheckbox("CHECKBOX 6", 430, 375, 120, 20)
$checks[56] = GUICtrlCreateCheckbox("CHECKBOX 7", 430, 415, 120, 20)$tab2 = GUICtrlCreateTabItem("Internet Bereich")
[/autoit] [autoit][/autoit] [autoit]
GUICtrlCreateLabel("label2", 30, 80, 50, 20)
;links
$checks[29] = GUICtrlCreateCheckbox("MSN Live 9", 130, 175, 120, 20)
$checks[30] = GUICtrlCreateCheckbox("TeamSpeak 2 rc2", 130, 215, 120, 20)
$checks[31] = GUICtrlCreateCheckbox("ICQ 7 oder so...", 130, 255, 120, 20)
$checks[32] = GUICtrlCreateCheckbox("CHECKBOX 4", 130, 295, 120, 20)
$checks[33] = GUICtrlCreateCheckbox("CHECKBOX 5", 130, 335, 120, 20)
$checks[34] = GUICtrlCreateCheckbox("CHECKBOX 6", 130, 375, 120, 20)
$checks[35] = GUICtrlCreateCheckbox("CHECKBOX 7", 130, 415, 120, 20)
;rechts
$checks[36] = GUICtrlCreateCheckbox("MSN Plus", 430, 175, 120, 20)
$checks[37] = GUICtrlCreateCheckbox("MSN Discovery Live", 430, 215, 120, 20)
$checks[38] = GUICtrlCreateCheckbox("CHECKBOX 3", 430, 255, 120, 20)
$checks[39] = GUICtrlCreateCheckbox("CHECKBOX 4", 430, 295, 120, 20)
$checks[40] = GUICtrlCreateCheckbox("CHECKBOX 5", 430, 335, 120, 20)
$checks[41] = GUICtrlCreateCheckbox("CHECKBOX 6", 430, 375, 120, 20)
$checks[42] = GUICtrlCreateCheckbox("CHECKBOX 7", 430, 415, 120, 20)$tab3 = GUICtrlCreateTabItem("System")
[/autoit] [autoit][/autoit] [autoit]
GUICtrlCreateLabel("label3", 30, 80, 50, 20)
;links
$checks[15] = GUICtrlCreateCheckbox("CHECKBOX 1", 130, 175, 120, 20)
$checks[16] = GUICtrlCreateCheckbox("CHECKBOX 2", 130, 215, 120, 20)
$checks[17] = GUICtrlCreateCheckbox("CHECKBOX 3", 130, 255, 120, 20)
$checks[18] = GUICtrlCreateCheckbox("CHECKBOX 4", 130, 295, 120, 20)
$checks[19] = GUICtrlCreateCheckbox("CHECKBOX 5", 130, 335, 120, 20)
$checks[20] = GUICtrlCreateCheckbox("CHECKBOX 6", 130, 375, 120, 20)
$checks[21] = GUICtrlCreateCheckbox("CHECKBOX 7", 130, 415, 120, 20)
;rechts
$checks[22] = GUICtrlCreateCheckbox("CHECKBOX 1", 430, 175, 120, 20)
$checks[23] = GUICtrlCreateCheckbox("CHECKBOX 2", 430, 215, 120, 20)
$checks[24] = GUICtrlCreateCheckbox("CHECKBOX 3", 430, 255, 120, 20)
$checks[25] = GUICtrlCreateCheckbox("CHECKBOX 4", 430, 295, 120, 20)
$checks[26] = GUICtrlCreateCheckbox("CHECKBOX 5", 430, 335, 120, 20)
$checks[27] = GUICtrlCreateCheckbox("CHECKBOX 6", 430, 375, 120, 20)
$checks[28] = GUICtrlCreateCheckbox("CHECKBOX 7", 430, 415, 120, 20)$tab4 = GUICtrlCreateTabItem("Antivirus Software")
[/autoit] [autoit][/autoit] [autoit]
GUICtrlCreateLabel("label4", 30, 80, 50, 20)
;links
$checks[1] = GUICtrlCreateCheckbox("TuneUp Utilities 2010", 130, 175, 120, 20)
$checks[2] = GUICtrlCreateCheckbox("AVG 9", 130, 215, 120, 20)
$checks[3] = GUICtrlCreateCheckbox("CHECKBOX 3", 130, 255, 120, 20)
$checks[4] = GUICtrlCreateCheckbox("CHECKBOX 4", 130, 295, 120, 20)
$checks[5] = GUICtrlCreateCheckbox("CHECKBOX 5", 130, 335, 120, 20)
$checks[6] = GUICtrlCreateCheckbox("CHECKBOX 6", 130, 375, 120, 20)
$checks[7] = GUICtrlCreateCheckbox("CHECKBOX 7", 130, 415, 120, 20)
;rechts
$checks[8] = GUICtrlCreateCheckbox("Acronis True Image Home", 430, 175, 120, 20)
$checks[9] = GUICtrlCreateCheckbox("CHECKBOX 2", 430, 215, 120, 20)
$checks[10] = GUICtrlCreateCheckbox("CHECKBOX 3", 430, 255, 120, 20)
$checks[11] = GUICtrlCreateCheckbox("CHECKBOX 4", 430, 295, 120, 20)
$checks[12] = GUICtrlCreateCheckbox("CHECKBOX 5", 430, 335, 120, 20)
$checks[13] = GUICtrlCreateCheckbox("CHECKBOX 6", 430, 375, 120, 20)
$checks[14] = GUICtrlCreateCheckbox("CHECKBOX 7", 430, 415, 120, 20)$tab5 = GUICtrlCreateTabItem("Information !!")
[/autoit] [autoit][/autoit] [autoit]
GUICtrlCreateLabel("label4", 30, 80, 50, 20)GUICtrlCreateTabItem("")
[/autoit] [autoit][/autoit] [autoit]
GUISetState()
While 1
Switch GUIGetMsg()
Case -3
Exit
Case $combo
If GUICtrlRead($combo) = "Vollständig" Then
For $i = 1 To 70
GUICtrlSetState($checks[$i], $GUI_CHECKED)
Next
ElseIf GUICtrlRead($combo) = "Standart" Then
GUICtrlSetState($checks[1], $GUI_CHECKED)
GUICtrlSetState($checks[2], $GUI_UNCHECKED)
GUICtrlSetState($checks[3], $GUI_CHECKED)
GUICtrlSetState($checks[4], $GUI_UNCHECKED)
GUICtrlSetState($checks[5], $GUI_CHECKED)
GUICtrlSetState($checks[6], $GUI_UNCHECKED)
GUICtrlSetState($checks[7], $GUI_CHECKED)
GUICtrlSetState($checks[8], $GUI_CHECKED)
GUICtrlSetState($checks[9], $GUI_CHECKED)
GUICtrlSetState($checks[10], $GUI_UNCHECKED)
GUICtrlSetState($checks[11], $GUI_CHECKED)
GUICtrlSetState($checks[12], $GUI_CHECKED)
GUICtrlSetState($checks[13], $GUI_CHECKED)
GUICtrlSetState($checks[14], $GUI_CHECKED)
GUICtrlSetState($checks[15], $GUI_UNCHECKED)
GUICtrlSetState($checks[16], $GUI_CHECKED)
GUICtrlSetState($checks[17], $GUI_CHECKED)
GUICtrlSetState($checks[18], $GUI_UNCHECKED)
GUICtrlSetState($checks[19], $GUI_UNCHECKED)
GUICtrlSetState($checks[20], $GUI_UNCHECKED)
GUICtrlSetState($checks[21], $GUI_CHECKED)
GUICtrlSetState($checks[22], $GUI_CHECKED)
GUICtrlSetState($checks[23], $GUI_CHECKED)
GUICtrlSetState($checks[24], $GUI_UNCHECKED)
GUICtrlSetState($checks[25], $GUI_CHECKED)
GUICtrlSetState($checks[26], $GUI_CHECKED)
GUICtrlSetState($checks[27], $GUI_UNCHECKED)
GUICtrlSetState($checks[28], $GUI_CHECKED)
GUICtrlSetState($checks[29], $GUI_CHECKED)
GUICtrlSetState($checks[30], $GUI_UNCHECKED)
GUICtrlSetState($checks[31], $GUI_CHECKED)
GUICtrlSetState($checks[32], $GUI_CHECKED)
GUICtrlSetState($checks[33], $GUI_CHECKED)
GUICtrlSetState($checks[34], $GUI_CHECKED)
GUICtrlSetState($checks[35], $GUI_UNCHECKED)
GUICtrlSetState($checks[36], $GUI_CHECKED)
GUICtrlSetState($checks[37], $GUI_CHECKED)
GUICtrlSetState($checks[38], $GUI_UNCHECKED)
GUICtrlSetState($checks[39], $GUI_UNCHECKED)
GUICtrlSetState($checks[40], $GUI_UNCHECKED)
GUICtrlSetState($checks[41], $GUI_UNCHECKED)
GUICtrlSetState($checks[42], $GUI_CHECKED)
GUICtrlSetState($checks[43], $GUI_CHECKED)
GUICtrlSetState($checks[44], $GUI_CHECKED)
GUICtrlSetState($checks[45], $GUI_UNCHECKED)
GUICtrlSetState($checks[46], $GUI_CHECKED)
GUICtrlSetState($checks[47], $GUI_CHECKED)
GUICtrlSetState($checks[48], $GUI_CHECKED)
GUICtrlSetState($checks[49], $GUI_CHECKED)
GUICtrlSetState($checks[50], $GUI_UNCHECKED)
GUICtrlSetState($checks[51], $GUI_CHECKED)
GUICtrlSetState($checks[52], $GUI_CHECKED)
GUICtrlSetState($checks[53], $GUI_UNCHECKED)
GUICtrlSetState($checks[54], $GUI_CHECKED)
GUICtrlSetState($checks[55], $GUI_CHECKED)
GUICtrlSetState($checks[56], $GUI_CHECKED)
GUICtrlSetState($checks[57], $GUI_UNCHECKED)
GUICtrlSetState($checks[58], $GUI_CHECKED)
GUICtrlSetState($checks[59], $GUI_UNCHECKED)
GUICtrlSetState($checks[60], $GUI_UNCHECKED)
GUICtrlSetState($checks[61], $GUI_CHECKED)
GUICtrlSetState($checks[62], $GUI_UNCHECKED)
GUICtrlSetState($checks[63], $GUI_CHECKED)
GUICtrlSetState($checks[64], $GUI_UNCHECKED)
GUICtrlSetState($checks[65], $GUI_CHECKED)
GUICtrlSetState($checks[66], $GUI_CHECKED)
GUICtrlSetState($checks[67], $GUI_UNCHECKED)
GUICtrlSetState($checks[68], $GUI_UNCHECKED)
GUICtrlSetState($checks[69], $GUI_CHECKED)
GUICtrlSetState($checks[70], $GUI_CHECKED)
EndIf
EndSwitch
WEndEndFunc ;==>Example
[/autoit] -
ich glaube raupi hat gerad das gesagt was ich wollte...
wäre es nicht einfacher die Parameter zu drehen?, also
PixelSearch($rechts, $unten, $links, $oben, $farbe, $shadevar, $step*-1)
kann das nicht funktionieren?? -
Ich brauch FF auch als standartbrowser, aber für autoit muss man da noch so nen programm installieren, und dann klappts wieder net recht...
ich hab mich für IE entschieden weil das überall klappt (wenns überhaupt klappt)
die lösung die du mir vorhin gegeben hast, hat nachder idee mit dem fenster umbenennen eigentlich auch geklappt (glaube ich)
da kamen gerade wieder neue fehler, dessen gründe nicht schnell ersichtlich sind...
also eigentlich dürften die fehler nich da sein
wenns nen fehler gibt is es sicher wieder IE gewesen, aber diesmal an ner andern stelle...
damit währe aber das problem hier gelöst, super arbeit, danke !
-
ich bin mir nun eigentlich sicher, das problem tritt in der _IEAttach auf
Edit: ja der hatte dasselbe problem, wenn ich dasselbe wie der möchte, dann würd ich das vornerein schon so machen, aber ich hab gleichnamige fenster (muss mir mal überlegen ob ich die mit AutoIt umbenennen will :P)
ein versuch ists sicher wert! -
Es kommt doch nich auf das skript an, wenn sich die IE.au3 selber über die füsse stolpert... aber trozdem mal nen ausschnitt des codes:
Spoiler anzeigen
[autoit]For $count = 1 To $s_ar[0][0]
[/autoit]
$newIE = _IEAttach($s_ar[$count][1], "HWND")
$link = _IEPropertyGet($newIE, "locationurl")
$s_ar = StringSplit($link, "/")
If $s_ar[4] = "index.php" Then
Global $oIEg = $newIE
Global $server = $s_ar[3]
Else
Global $oIE = $newIE
Global $launchwindow = $s_ar[$count][1]
Global $server = $s_ar[3]
EndIf
NextIch werde gleich mal versuchen die _IEAttach zu umgehen (sowiso total unmöglich, oder gibts was anderes, welches IE objekte zurückgibt?)
-
hi leuts!
ich schlag mir hier gleich die birne ein weil die IE.au3 zu doof is:
Die _IEPropertyGet funktion mit dem 2tn Parameter Handle ("HWND") funktioniert bei mir nicht...
das heisst zumindest wenn ich _IEAttach($hWnd, "HWND") versuche, dann gehts nich....
Es heisst dann immer (und zwar bei jedem aufruf):CodeLine 3116 (File "C:\Programme\AutoIt3\Include\IE.au3"): Return HWnd($o_object.HWnd()) Return HWnd($o_object.HWnd()^ ERROR Error: The requested action with this object has failed.
das ganze führt auch immer zum absturz der autoit3.exe...
kann mir einer sagen was ich tun soll??
ich hab schon bei MSDN nachgeschaut, da war nichts spezielles vermerkt:
http://msdn.microsoft.com/de-de/library/…-us,VS.85).aspxHelft mir!!!!!!
-
Hallo liebe leute!!
Ich habe eine Tastatur mit Knöpfen zur Mediensteuerung, es ist nur ärgerlich dass iTunes auf diese nicht reagiert!
[autoit='Programmcode']
Ich habe deshalb lange nach einer lösung gesucht, aber ich habe nichts einfaches gefunden.
Zumindest nichts einfaches bis auf die Steuerung im aktiven Fenster iTunes...
Also habe ich ein Progrämmlein erstellt welches bei Hotkey die passenden Befehle an iTunes gibt. Auch iTunes reagiert auf Tastenkombinationen...HotKeySet("{LAUNCH_MEDIA}", "media_start")
HotKeySet("{MEDIA_PLAY_PAUSE}", "media_play_pause")
HotKeySet("{MEDIA_PREV}", "media_prev")
HotKeySet("{MEDIA_NEXT}", "media_next")If WinExists("iTunes") Then
$hWnd = WinGetHandle("iTunes")
$h_play_pause = ControlGetHandle($hWnd, "", "Button6")
$h_next = ControlGetHandle($hWnd, "", "Button7")
$h_prev = ControlGetHandle($hWnd, "", "Button5")
EndIfWhile True
sleep(333)
WEndFunc media_start()
[/autoit]
If Not WinExists("iTunes") Then
Run("C:\Programme\iTunes\iTunes.exe", "C:\Programme\iTunes")
$hWnd = WinGetHandle("iTunes")
If @error Then
sleep(1800)
$hWnd = WinGetHandle("iTunes")
EndIf
Else
$hWnd = WinGetHandle("iTunes")
EndIf
EndFunc
Func media_play_pause()
ControlSend($hWnd, "", Default, "{SPACE}")
EndFunc
Func media_prev()
ControlSend($hWnd, "", Default, "^{LEFT}")
EndFunc
Func media_next()
ControlSend($hWnd, "", Default, "^{RIGHT}")
EndFuncIch hoffe ich bin nicht der einzige der iTunes benuzt
Die Datei im Anhang ist natürlich mit jedem Windows XP kompatibel (auch ohne AutoIt installiert zu haben, so wie AuoIt halt eben ist ^^)
Viel spass damit! -
Alles hinterlässt fingerabdrücke, auch ein Programm auf einem PC - mit oder ohne installation!!
Und wegen dem UltraMon hab ich mir erst den Virus geholt, ich wollte nen keygen 
ich könnte mir deshalb nun die birne verhauen, aber ich frage mich was ich davon habe ausser kopfschmerzen - welche ich bereits hab - -
ja ich das mit dem child problem dann mit der $hwnd gelöst..
aber funzen tuts net!! -
Es müsste ja nich mal aussehen wie eine Tasklise, es müsste nur immer Ontop sein, und die Desktopelemente müssten dadurch begrenz werden, also dass man fenster mit der maus nich einfach darunter ziehen kann...
-
hä, den satz check ich net, hab ne syntax error...
und nun weiss ich dass dieses ding meinen PC auch zwei mal zum absturz bringen kann...
ich habe die schleife am ende herausgenommen und sleep(5000) hinen geproggt, aber nach 5 sek war das ding immernoch da!
ich weiss nicht was ich damit anfangen soll...
achja, da war nochwas,
eine meldung mit der anschrift "ERROR" oder "EROR" so genau weiss ich das nicht, dann hatte es noch so ein icon und in der meldung stand was von WinAPI und wegen erfolgreich beendet, daneben was das Icon (rund, rot, mit weissem X drin)...
ich weiss auch nicht was das bedeuten soll