Hallo
Dafür brauchst du natürlich (die momentan neuste) AutoIt Version 3.2.10.0!
Mfg Spider
Hallo
Dafür brauchst du natürlich (die momentan neuste) AutoIt Version 3.2.10.0!
Mfg Spider
Hallo
Startet den Editor, Minimiert ihn zum Tray und zeigt ihn wieder.
#NoTrayIcon
Run("Notepad.exe")
WinWait("Unbenannt")
MsgBox(0,"","Klicke auf OK um den Editor zum Tray zu minimieren...")
TraySetIcon("Notepad.exe")
WinSetState("Unbenannt","",@SW_HIDE)
Opt("TrayIconHide",0)
MsgBox(0,"","Klicke auf OK um den Editor wieder zu zeigen...")
WinSetState("Unbenannt","",@SW_SHOW)
Opt("TrayIconHide",1)
MsgBox(0,"","Erfolgreich!")
Mfg Spider
Hallo
Fast2: Naja, damit Gun-Food sieht wie sich die Seite bei verschiedenen Auflösungen verhält bei WinXP Pro SP2 mit FireFox 2.0.0.10
Mfg Spider
Hallo
Mit dem Firefox:
800x600 (4:3)
[Blockierte Grafik: http://img-up.net/img/800x600j8pgdRg.jpg]
1024x768 (4:3)
[Blockierte Grafik: http://img-up.net/img/1024x768bEB3NNML.jpg]
1280x1024 (5:4)
[Blockierte Grafik: http://img-up.net/img/1280x1024KsBQsh7.jpg]
1680x1050 (16:10)
[Blockierte Grafik: http://img-up.net/img/1680x1050n9Ew7UDY.jpg]
Mfg Spider
Hallo
Der folgende DLLCall entleert den RAMSpeicher der datei:
[autoit]DllCall($dll, 'int', 'EmptyWorkingSet', 'long', -1)
[/autoit]Ein Sleep solltest du eigentlich nicht brauchen, da GUIGetMsg() schon automatisch das macht, dass er wenig CPU Last verbrauchen darf.
Zunot benutze doch einfach OnEventMode.
Mfg Spider
Hallo
Dieser Codeabschnitt ist für die GUI zuständig. Da kannst du doch einfach dein anderes Fenster reinkopieren?
$hGUIforGrayBK = GUICreate("", 300, 100, -1, -1, BitOR($WS_DLGFRAME, $WS_POPUP), -1, $hGUIDskTop)
Local $lblInfo = GUICtrlCreateLabel("Enter Password",110,14, 100, 22)
$text = GUICtrlCreateInput("",65, 34, 170,22, $ES_PASSWORD)
GUICtrlSetFont(-1,10)
Local $ButOK = GUICtrlCreateButton("OK",155,64,80,25, $BS_DEFPUSHBUTTON)
Local $ButAbbr = GUICtrlCreateButton("Abbruch",65,64,80,25)
GUISetState()
Mfg Spider
Hallo
Dafür gibt es die UDF _GUICtrlEdit_Scroll :
#include
; menue1.au3
#include
#include
$Version = "1.00"
$erledigt = ""
GUICreate("menue1 " & $Version) ; will create a dialog box that when displayed is centered
GUICtrlCreateGroup("erledigt", 5, 280, 280, 75)
;GUICtrlCreateLabel("erledigt", 5, 250, 280)
;$ERLEDIGTTEXT = GUICtrlCreateEdit("", 10, 265, 260, 50, $WS_DISABLED+$ES_AUTOVSCROLL)
;$ERLEDIGTTEXT = GUICtrlCreateEdit("", 10, 265, 260, 50,$ES_AUTOVSCROLL + $WS_VSCROLL + $ES_MULTILINE + $ES_WANTRETURN + $ES_READONLY)
$ERLEDIGTTEXT = GUICtrlCreateEdit("", 10, 295, 275, 50, $ES_AUTOVSCROLL + $WS_VSCROLL + $ES_READONLY)
GUICtrlCreateGroup("", -99, -99, 1, 1) ;close group
$okbutton = GUICtrlCreateButton("OK", 100, 375, 35)
GUISetState() ; will display an dialog box with 1 checkbox
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $okbutton
$datelong = @YEAR & @MON & @MDAY & @HOUR & @MIN & @SEC
If StringLen($erledigt) = 0 Then
$erledigt = $erledigt & $datelong
Else
$erledigt = $erledigt & @CRLF & $datelong
EndIf
GUICtrlSetData($ERLEDIGTTEXT, $erledigt)
_GUICtrlEdit_Scroll ($ERLEDIGTTEXT,$SB_SCROLLCARET)
Case $msg = $GUI_EVENT_CLOSE
MsgBox(0, "Nix gibts umsonst", "Denk an den Kaffee für German...", 5)
ExitLoop
EndSelect
WEnd
Alles anzeigen
Mfg Spider</Date.au3></GUIConstants.au3></guiedit.au3>
Hallo
Ich hab dir mal eben was geschrieben. Mit diesem Skript kannst du alle Daten vom Kalender auslesen
$oOutlook = ObjCreate("Outlook.Application");Starte das Outlook Com Objekt
$oMAPI = $oOutlook.GetNameSpace ("MAPI")
$InboxItems = $oMAPI.GetDefaultFolder (9).Items;Lese alle daten aus der "Inbox"
dim $CalArray[4][4]
For $Pos = $InboxItems.Count To 1 Step - 1
$Kalender = $InboxItems.Item ($Pos)
ConsoleWrite($Kalender.Subject& @CRLF)
Next
Guck dir nochmal das an, vielleicht hilft dir das zum schreiben: http://www.ms-office-forum.net/forum/showthread.php?t=96590
Falls ich gleich nochmal Zeit finde, probier ich es auch nochmal!
Mfg Spider
Hallo
Ich würde einfach mehrere Parts mit einem Schwung senden, dass könnte dann ca so aussehen:
Server:
#include TCPStartup() $IP = @IPAddress1 $PORT = 9876 $List = TCPListen($IP, $PORT) Global $Con = -1 While $Con = -1 $Con = TCPAccept($List) Sleep(50) WEnd While 1 $Recv = TCPRecv($Con, 1024) If $Recv <> '' Then $aStrSpl = StringSplit($Recv, Chr(1)) If StringInStr($aStrSpl[1], "FF FF 1E") Then $aBetw = _StringBetween($aStrSpl[2], "00", "00") MsgBox(0,"",$aStrSpl[3]&@CRLF&"Paket 1: "&$aStrSpl[1]&@CRLF&"Paket 2: "&$aBetw[0]) ExitLoop EndIf EndIf WEnd While 1 TCPSend($Con, "Exit") If @error Then ExitLoop WEnd TCPCloseSocket($Con) TCPShutdown()
Client:
Ich habe als Separator jetzt Chr(1) genommen.
Mfg Spider
Hallo
Kein Problem, mein Name ist zwar GtaSpider, aber ansonsten
Mfg Spider
Hallo
So würde ich es nicht lösen, wenn überhaupt mit Ping bei google.de, also Ping("www.google.de")
Aber es gibt noch eine schönere Variante, über DLLCall (könnte ja mal passieren das Google offline ist :D)
Ich hab dir hier mal was geschrieben:
MsgBox(0,"","Internetverbindung: "&_CheckInet())
Func _CheckInet()
Local $aDll,$sRet
$aDll = DllCall("WinInet.dll","int","InternetGetConnectedState","int*",0,"int",0)
If @error Then Return SetError(1,0,-1)
If nOt IsArray($aDll) Then SetError(2,0,-1)
If $aDll[0] = 0 Then Return False
Return True
EndFunc
Alles anzeigen
Mfg Spider
Hallo
Probier das mal aus:
Func Login($universe, $user, $pass)
If $universe = "Universum auswählen" Then
MsgBox(0, "OBot", "Universum auswählen!")
Return 0
EndIf
$universe = Int($universe)
Local $oIE = _IECreate("Ogame.de")
Local $oFrameMain = _IEFrameGetObjByName($oIE, "mainframe")
Local $oForm = _IEFormGetObjByName($oFrameMain, "loginForm")
Local $oElement_1 = _IEFormElementGetObjByName($oForm, "login")
Local $oElement_2 = _IEFormElementGetObjByName($oForm, "pass")
Local $oElement_3 = _IEFormElementGetObjByName($oForm, "universe")
_IEFormElementSetValue($oElement_1, $user)
_IEFormElementSetValue($oElement_2, $pass)
_IEFormElementSetValue($oElement_3, "uni" & $universe & ".ogame.de")
_IEFormImageClick($oFrameMain,'button','name')
EndFunc ;==>Login
Alles anzeigen
Habe es jetzt mit _IEFormImageClick gelöst
Mfg Spider
Hallo
Wow, da muss dein Kopf aber extrem geraucht haben
Vielen dank, sieht super aus [Blockierte Grafik: http://www.fabulous-design.de/wbb2/images/fd2/smilies/respekt.gif]
Mfg Spider
Hallo
Naja, klar mit Übergang. Aber halt nicht
Rot -> Orange -> Grün sondern Rot -> Gelb -> Grün.
So wie eine Lebensanzeige beim PC Spiel oder so
Mfg Spider
Hallo
Sieht gut aus, respekt!
Hat jemand villeicht ne idee wie man das Orange in der mitte, ganz Gelb bekommt? Währe nochmal eine perfektionierung
Danke trallala, weiter so!
Mfg Spider
Hallo
Einige von euch kennen villeicht mein Netgear Router ReConnect Programm. Dies war ja noch beta, funktionierte nur auf deutsch und nur auf XP und nur mit Internet Explorer 6!
Mein jetziges Skript (Bisher noch ohne gui, da Silent ) trennt den Netgear Router und Verbindet ihn neu, und das im Hintergrund, ohne lästige Authentifizierungsmeldung! Praktisch z.B. für CryptLoad als Router ReConnecter
Was mich positiv überrascht, ist das das Skript weitaus schneller den Router neu verbindet als z.B. RouterControl. Dafür funktioniert es ausschließlich mit NETGEAR Routern.
Also, hier nun das Skript, viel spaß damit!
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=server_connection.ico
#AutoIt3Wrapper_outfile=Silent Router ReConnect.exe
#AutoIt3Wrapper_Compression=3
#AutoIt3Wrapper_Res_Comment=Router ReConnect ist nur für Netgear Router!
#AutoIt3Wrapper_Res_Description=Trennt und wiederverbindet Netgear Router
#AutoIt3Wrapper_Res_Fileversion=0.9.5.0
#AutoIt3Wrapper_Res_LegalCopyright=GtaSpider
#AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;AutoIt Versions Check
If Number(StringReplace(@AutoItVersion, ".", "")) < 3281 Then _ErrorMsg ("This Script probary do not work with you AutoIt Version!"&@CRLF&"Du you want to start it anyway?", 0, 52)
;Includes
#include <GUIConstants.au3>
#include <inet.au3>
#include <ie.au3>
#include <string.au3>
;Options
Opt("Wintitlematchmode",2)
;Globals
Global Const $ProgramVersion = "1.1.0 (Silent Editon)"
Global $old_string = "", $runthis = ""
Global $launchDir = @DesktopDir
Global $Username = RegRead("HKEY_CURRENT_USER\Software\Router ReConnect", "Username")
Global $Userpassword = _StringEncrypt(0, RegRead("HKEY_CURRENT_USER\Software\Router ReConnect", "Userpassword"), "RoUReC3%'§^'", 2)
Global $RouterAdress = RegRead("HKEY_CURRENT_USER\Software\Router ReConnect", "Router Adress")
Global $sExpRead = -1
Global $sIExpRead = -1
;Falls RegDaten nicht vorhanden, erstellen.
If $Username = '' Or $Userpassword = '' Or $RouterAdress = '' Then
$guiUserdata = GUICreate("Router ReConnect v" & $ProgramVersion & " - By GtaSpider", 295, 183, 207, 141, -1, BitOR($WS_EX_TOOLWINDOW, $WS_EX_WINDOWEDGE))
GUICtrlCreatePic(@TempDir&"\Rout~\master07_background.jpg", -16, -40, 534, 400)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateLabel("Router adress:", 160, 16, 80, 15)
GUICtrlSetBkColor(-1, -2)
$inpRouterAdress = GUICtrlCreateInput("www.Routerlogin.com", 160, 32, 121, 21)
GUICtrlCreateLabel("Username:", 160, 56, 55, 15)
GUICtrlSetBkColor(-1, -2)
$inpUsername = GUICtrlCreateInput("admin", 160, 72, 121, 21)
GUICtrlCreateLabel("Passwort:", 160, 96, 50, 15)
GUICtrlSetBkColor(-1, -2)
$inpUserpassword = GUICtrlCreateInput("", 160, 112, 121, 21, $ES_PASSWORD)
$butNext = GUICtrlCreateButton("&Weiter", 160, 138, 121, 25, $BS_DEFPUSHBUTTON)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
CAse $butNext
RegWrite("HKEY_CURRENT_USER\Software\Router ReConnect", "Username","REG_SZ",GUICtrlRead($inpUsername))
RegWrite("HKEY_CURRENT_USER\Software\Router ReConnect", "Userpassword","REG_SZ",_StringEncrypt(1,GUICtrlRead($inpUserpassword), "RoUReC3%'§^'", 2))
RegWrite("HKEY_CURRENT_USER\Software\Router ReConnect", "Router Adress","REG_SZ",StringLower(StringReplace(GUICtrlRead($inpRouterAdress),"http:\\","")))
ExitLoop
EndSwitch
WEnd
GUIDelete()
Global $Username = RegRead("HKEY_CURRENT_USER\Software\Router ReConnect", "Username")
Global $Userpassword = _StringEncrypt(0, RegRead("HKEY_CURRENT_USER\Software\Router ReConnect", "Userpassword"), "RoUReC3%'§^'", 2)
Global $RouterAdress = RegRead("HKEY_CURRENT_USER\Software\Router ReConnect", "Router Adress")
EndIf
Global Const $MomentaryIP = _GetIP()
;Zum Router wird Verbunden
_SetIEOpts()
_ReConnectNetgear($Username,$Userpassword,$RouterAdress)
TrayTip("","Router disconnected! Ping attempt: 0",1)
BlockInput(0)
For $i = 1 To 100
$ping = Ping("www.google.de", 100);Pingt google an, bis kein error
$ping = @error
If Not $ping Then ExitLoop
TrayTip("","Router disconnected! Ping attempt: "&$i,1)
Next
;===============================================================================
;
; Function Name: _ReConnectNetgear
; Description:: ReConnect an Netgear Router
; Parameter(s): $sUsername: The Username is requied to connect to the Router
; $sPassword: The Password is requied to connect to the Router
; $sURL: The URL of the Netgearrouter [DEFAULT: "www.routerlogin.com"]
; $iSHOW: If you want to see the Internet explorer, then set iSHOW to 1 [DEFAULT: 0]
; Requirement(s): #include <ie.au3>
; Return Value(s): -
; Author(s): GtaSpider
;
;===============================================================================
Func _ReConnectNetgear($sUsername,$sPassword,$sURL="www.routerlogin.com",$iSHOW = 0)
Local $oIE = _IECreate("http://"&$sUsername&":"&$sPassword&"@"&$sURL&"/setup.cgi?todo=disconnect", 0, $iSHOW)
_IEQuit($oIE)
EndFunc
Func OnAutoItExit()
_ReloadIEOpts()
EndFunc
Func _SetIEOpts()
$sExpRead = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_HTTP_USERNAME_PASSWORD_DISABLE",'explore.exe')
If @error Then $sExpRead = -1
$sIExpRead = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_HTTP_USERNAME_PASSWORD_DISABLE",'iexplore.exe')
If @error Then $sExpRead = -1
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_HTTP_USERNAME_PASSWORD_DISABLE",'explore.exe',"REG_DWORD",0)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_HTTP_USERNAME_PASSWORD_DISABLE",'iexplore.exe',"REG_DWORD",0)
EndFunc
Func _ReloadIEOpts()
If $sExpRead = -1 Then
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_HTTP_USERNAME_PASSWORD_DISABLE",'explore.exe')
Else
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_HTTP_USERNAME_PASSWORD_DISABLE",'explore.exe',"REG_DWORD",$sExpRead)
EndIf
If $sIExpRead = -1 Then
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_HTTP_USERNAME_PASSWORD_DISABLE",'iexplore.exe')
Else
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_HTTP_USERNAME_PASSWORD_DISABLE",'iexplore.exe',"REG_DWORD",$sIExpRead)
EndIf
EndFunc
Func _ErrorMsg ($sText, $iExit = 1, $iMsgOpt = 48)
If MsgBox($iMsgOpt, "Warnung - Router ReConnect v" & $ProgramVersion, $sText) = 7 Or $iExit = 1 Then Exit
EndFunc ;==>_ErrorMsg
Mfg Spider
Hallo
Das ist schön für dich
Wie wäre es, wenn du es dem gesamten Forum berichtest, damit wenn jemand die gleiche/ähnliche frage hat, er hier die Antwort finden kann?
Mfg Spider
3.2.9.14
3.2.9.14 (21st November, 2007) (Beta)
- Fixed: Falsch zurückgegebene Stackgröße bewirkten das DllCallbacks mit int64 Parameter abstürzen (z.B. CopyFileEx)