ich tendiere eher zu dem naheliegensten
jeder wil die deutsche hilfe weil er kein englisch kann xD und wer kein englisch kann kannauch nicht übersetzen
Beiträge von Eistee
-
-
ok echt grossen dank an euch
MfG Eistee
Edit:\ habe es wie gesagt angepasst ist aber immer noch im tray ?
Spoiler anzeigen
[autoit]Global $TrayNotShowing = TRUE
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
HotKeySet("#n","_ToggleTray")
Func _ToggleTray()
$TrayNotShowing = Not $TrayNotShowing
TraySetState()
EndFunc#NoTrayIcon ; <-- Kein Trayicon anzeigen
[/autoit] [autoit][/autoit] [autoit]
#cs ----------------------------------------------------------------------------AutoIt Version: 3.2.12.0
[/autoit] [autoit][/autoit] [autoit]
Author: McPoldyScript Function:
[/autoit] [autoit][/autoit] [autoit]
Diese Script soll prüfen ob unsere derzeitige IP (z.B. der Zuhause) mit
der IP bei http://www.no-ip.org übereinstimmt.
Folgende Schritte sind dazu nötig:
1. Prüfen welche IP aktuell bei no-ip.org hinterlegt ist
2. Prüfen welche IP aktuell bei uns als öffentliche IP da ist
3. Ggf. die IP auf no-ip.org updaten.#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]; Includes
[/autoit] [autoit][/autoit] [autoit]
#include <IE.au3>
#include <Inet.au3>
#include <file.au3>
#Include <Constants.au3>
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
; <-- ENDE; Optionen
[/autoit] [autoit][/autoit] [autoit]
Opt("TrayMenuMode",1)
Opt("TrayOnEventMode",1)
; <-- ENDE; Konstanten
[/autoit] [autoit][/autoit] [autoit]
Const $bolRunEndless = True ; <-- Soll das Skript ständig laufen
Const $intIntervall = 15 ; <-- Alle wieviel Minuten soll geprüft werden
Const $bolLog = True ; <-- Soll eine Logdatei erstellt werden
Const $strLogFile = @ScriptDir & '\ipudater.log' ; <-- Pfad zum Logfile
; <-- ENDE; Zugangsdaten zu no-ip.org
[/autoit] [autoit][/autoit] [autoit]
Local $strUser = 'to//////////de' ; <-- Anmeldename bei No-IP.org
Local $strPwd = '///////c' ; <-- Unser Passwort
Local $strDomain = '////////' ; <-- Unsere Domain bei No-IP.org
; <-- ENDE; Dekleration allgemeiner Variablen
[/autoit] [autoit][/autoit] [autoit]
Local $strUpdateUrl = '' ; <-- Hier wird nachher die URL gespeichert, die wir benötigen um unsere IP zu aktualisieren
Local $strLocalIP = '' ; <-- Hier wird unsere derzeitige lokale (vom ISP zugewiesene) IP gespeichert
Local $strRemoteIP = '' ; <-- Hier wird unsere derzeitige remote (bei No-IP hinterlegte) IP gespeichert
Local $strLastCheck = '' ; <-- Hier wird gespeichert wann das letzte mal geprüft wurde
; <-- ENDE; Allgemeiner Teil
[/autoit] [autoit][/autoit] [autoit]
_Log("Programm gestartet") ; <-- Programm gestartet Log Eintrag
_GetIPs() ; <-- Hole IP`sIf $bolRunEndless Then ; <-- Prüfe ob Endlosbetrieb aktiv ist
[/autoit] [autoit][/autoit] [autoit]
_CreateTray() ; <-- Tray Menü anzeigen
;~ AdlibEnable("_Main",(1000 * 60 * $intIntervall)) ; <-- Setze Adlib mit angabe der Minuten in der geprüfter werden soll
While 1
Sleep(200)
WEnd
Else ; <-- Wenn nur einmal ausgeführt werden soll dann mache hier weiter
_Main()
_Exit()
EndIf
; <-- ENDE; Die Hauptfunktion die in bestimmten Abständen aufgerufen wird
[/autoit] [autoit][/autoit] [autoit]
Func _Main()
_getIps() ; <-- Hole aktuelle IP`s
If $strLocalIP <> $strRemoteIP Then _Update($strLocalIP) ; <-- Falls die IP`s unterschiedlich sind führe ein Update aus
EndFunc
; <-- ENDE; Tray-Menü Erstellung
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Func _CreateTray()
$infoitem = TrayCreateItem("Info Anzeige")
TrayItemSetOnEvent(-1,"_ShowInfo")
$logitem = TrayCreateItem("Log Anzeige")
TrayItemSetOnEvent(-1,"_openLog")
TrayCreateItem("")
$exititem = TrayCreateItem("Exit")
TrayItemSetOnEvent(-1,"_Exit")
TraySetState()
TraySetClick(3)
EndFunc
; <--Ende; Hier werden die beiden IP`s geholt
[/autoit] [autoit][/autoit] [autoit]
Func _getIPs()
TCPStartup() ; <-- TCP starten, wird für TCPNameToIP benötigt
$strLocalIP = _GetIP() ; <-- Unsere vom ISP zugewiesene IP
_Log("Folgende lokale IP wurde ermittelt: " & $strLocalIP)
$strRemoteIP = TCPNameToIP($strDomain) ; <-- Unsere IP bei No-IP
_Log("Folgende remote IP wurde ermittelt: " & $strLocalIP)
TCPShutdown() ; <-- TCP wieder stoppen
EndFunc
; <-- ENDE; Hier wird das Update durchgeführt
[/autoit] [autoit][/autoit] [autoit]
Func _Update($Ip,$User = $strUser,$Pwd = $strPwd,$Domain = $strDomain)
_Log("Update wurde gestartet....")
$strUpdateUrl = StringFormat('http://dynupdate.no-ip.com/dns?username=%s&password=%s&hostname=%s&ip=%s',$User,$Pwd,$Domain,$Ip) ; <-- Unsere Update URL
$oIE = _IECreate ($strUpdateUrl)
If _IEBodyReadText($oIE) = StringFormat("%s:0",$strDomain) Or _IEBodyReadText($oIE) = StringFormat("%s:1",$strDomain) Then
_Log("Update erfolgreich")
Else
_Log("Update NICHT erfolgreich")
EndIf
EndFunc
; <-- ENDE; Hier wird das Logfile geschrieben
[/autoit] [autoit][/autoit] [autoit]
Func _Log($text)
If $bolLog Then ; <-- Soll geloggt werden, siehe Konstanten
$strLastCheck = StringFormat("%04d.%02d.%02d - %02d:%02d:%02d",@YEAR,@MON,@MDAY,@HOUR,@MIN,@SEC) ; <-- Aktuelles Datum
_FileWriteLog($strLogFile,$text,0) ; <-- Schreiben der Log Datei
EndIf
EndFunc
; <-- ENDE; Logdatei im Default Texteditor öffnen
[/autoit] [autoit][/autoit] [autoit]
Func _openLog()
ShellExecute($strLogFile)
EndFunc
; <-- ENDE; Fenster für Infoanzeige
[/autoit] [autoit][/autoit] [autoit]
Func _ShowInfo()
#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Jens\Desktop\ipupdater.kxf
$frmMain = GUICreate("frmMain", 520, 114, -1, -1, BitOR($WS_POPUP,$WS_CLIPSIBLINGS))
GUISetBkColor(0x9DB9EB)
$lblLine01 = GUICtrlCreateLabel("", 0, 24, 520, 2)
GUICtrlSetBkColor(-1, 0x000000)
$lblTitel = GUICtrlCreateLabel("STATUS - Übersicht IP Updater [by Progandy]", 130, 4, 280, 17)
GUICtrlSetFont(-1, 8, 800, 4, "Verdana")
$lblLokalIP = GUICtrlCreateLabel("Lokale IP: " & $strLocalIP, 25, 38, 240, 17)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$lblRemoteIP = GUICtrlCreateLabel("Remote IP: " & $strRemoteIP, 275, 38, 240, 25)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$lblLine02 = GUICtrlCreateLabel("", 0, 70, 520, 2)
GUICtrlSetBkColor(-1, 0x000000)
$lblLastCheck = GUICtrlCreateLabel("Letzte Prüfung: " & $strLastCheck, 100, 78, 312, 25)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$lblLine03 = GUICtrlCreateLabel("lblLine03", 0, 111, 520, 2)
GUICtrlSetBkColor(-1, 0x000000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUIDelete($frmMain)
ExitLoop
EndSwitch
WEnd
EndFunc
; <-- ENDE; Diese Funktion wird beim beenden des Scripts ausgeführt
[/autoit]
Func _Exit()
If $bolRunEndless Then AdlibDisable() ; <-- Falls Entlosbetrieb, wird Adlib deaktiviert
_Log("Letze eigene IP: " & $strLocalIP) ; <-- Abschliessende Log Einträge
_Log("Letze remote IP: " & $strRemoteIP) ; <-- Abschliessende Log Einträge
_Log("Zuletzt geprüft: " & $strLastCheck) ; <-- Abschliessende Log Einträge
_Log("Programm wird nun beendet.") ; <-- Abschliessende Log Einträge
Exit 0
EndFunc -
Hallo McPoldy
danke für die super hilfe
aber ich hätte noch eine frage und zwar, kann man das noch so umbauen das er sorusagen unsichtbar läuft ? also ohne fenster ohne try usw. sozusagen unsichtbar eine statische ip zuordnen ? würde das ja selber testen bin momentan aber nicht zuhauseMfG Eistee
-
Hallo Leute
Ich denke mal ihr kennt alle no-ip.org (oder dynDNS) bei no-ip.org ist es so das man sich ein programm mit dem namen no-ip.duc downloaden und installieren muss, über diesen wird dann die statische ip initialisiert
und ich würde jetzt gerne diesen no-ip.duc nachbauen. Nur leider fällt mir hierzu nicht einmal der geringste ansatz ein wie dies realisierbar wäre.Habt ihr dazu irgendwelche ideen ? hatt so etwas schon einmal jemand gemacht ? Ist es Überhaupt zu realisieren und wenn ja wie ?
Ich hoffe auf viele Tips und anregungen
Mfg Eistee
-
du das ist nicht meinscript xD
und ich denke das wird auch nicht gehen da ich die date auch versucht habe als admin zu starten bringt auch nichts -
Spoiler anzeigen
[autoit]Sleep(99 / GUICtrlRead($hSlider))
[/autoit]Sollte gehen nicht getestet
-
gehta uch im kompatiblitätsmodus nicht
-
unter VISTA gehts nicht
-
also wenn es die Firma nicht zahlen will obwohl sie das teil braucht dann würde ich mir überlegen die firma zu wechseln
-
Ja das schon aber es geht hier nicht um das Prinzip des automatisierens sondern um das Prinzip von Fairply und durch bots gibt es kein faisply mer somit sind bots einfach nichts gutes
-
dann bauste halt noch ne if abfrage ein
If $blabla = ♠ Then $Blabla2 = 774
Und dann halt nicht die rste variable benutzen sondern die zweite
-
Na ganz einfach :
Ersteller : Oscar
Anpasser : Dankeschön -
Da gebe ich dir recht dankeschön
Ich verstehe auch nur meine eigenen Scripts xD -
natürlich kann man
Spoiler anzeigen
[autoit]#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
DirCreate("C:\slash")
Const $IniLog = StringLeft("C:\slash\Programm.ini",StringInStr("C:\slash\Programm.ini",".",0,-1)) & "ini"
Const $IniPW = StringLeft("C:\slash\Programm.ini",StringInStr("C:\slash\Programm.ini",".",0,-1)) & "ini"Global $WoW, $INIPath = "C:\slash\Programm.ini"
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
If Not FileExists($INIPath) Then
Do
$WoW = FileOpenDialog("Öffnen...", @DesktopDir, "World of Warcraft (*.exe)")
Until Not @error
IniWrite($INIPath, 'settings', 'last_file', $WoW)
Else
$WoW = IniRead($INIPath, 'settings', 'last_file', '')
EndIf$Pic1 = FileInstall("C:\Dokumente und Einstellungen\Martin\Desktop\wow_logo.BMP","C:\slash\wow_logo.BMP")
[/autoit]
$Form1 = GUICreate("WoW Login!", 210, 318, 420, 217)
GUISetBkColor(0x000000)
$input1 = GUICtrlCreateInput(IniRead($IniLog, "Login", "default", ""), 16, 139, 177, 21)
$input2 = GUICtrlCreateInput(IniRead($IniPW, "Pw", "default1", ""), 16, 223, 177, 21)
$Label1 = GUICtrlCreateLabel("Passwort", 16, 200, 49, 19)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xFFFFFF)
$Label2 = GUICtrlCreateLabel("User Name", 16, 115, 60, 19)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xFFFFFF)
$Button1 = GUICtrlCreateButton("Login", 64, 264, 83, 25, 0)
GUICtrlCreatePic("C:\slash\wow_logo.BMP", 31, 0, 150, 85)
$Label3 = GUICtrlCreateLabel("Auto Login", 74, 64, 68, 22)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xFFFFFF)
$MenuItem1 = GUICtrlCreateMenu("?")
$MenuItem2 = GUICtrlCreateMenuItem("About", $MenuItem1)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $MenuItem2
MsgBox(64, "About", "WoW Auto Login" & @CRLF & "Version 1.0" & @CRLF & "" & @CRLF & "Copyright © 2008" & @CRLF & "By Slash")
Case $Button1
IniWrite($IniLog, "Login","default",GUICtrlRead($Input1))
IniWrite($IniPW, "Pw","default1",GUICtrlRead($Input2))
run($WoW)
sleep("7000")
Send(GUICtrlRead($input1))
sleep("20")
send("{tab}")
sleep("20")
Send(GUICtrlRead($input2))
send("{enter}")
exit
EndSwitch
WEndP.s. habe noch eine kleinigkeit geändert
er installiert dein Bild nicht mehr im TempDir sondern er erstellt unter C einen neuen ordner mitdem namen "slash" und da kommt dann alles rein (Weil man da als evtl´er VISTA nutzer Problemchen kriegst da der TempOrdner Iwan überquillt) -
Also die drei Links gehen irgendwie nicht
Beim ersten link kommen im script wieder mal fehler (kein plan welche)
Das zweite script auch
Und das dritte macht einfach gar nichts -
möglich ist alles^^
-
lol da schreibt dir bugfix wies geht und du ignorierst es naja vielleicht verstehste wie es geht wenn du es dir jetzt anschaust hier
Spoiler anzeigen
[autoit]#include <GUIConstants.au3>
[/autoit]
Global $WoW, $INIPath = @ScriptDir & '\Programm.ini'
If Not FileExists($INIPath) Then
Do
$WoW = FileOpenDialog("Öffnen...", @DesktopDir, "World of Warcraft (*.exe)")
Until Not @error
IniWrite($INIPath, 'settings', 'last_file', $WoW)
Else
$WoW = IniRead($INIPath, 'settings', 'last_file', '')
EndIf
$Pic1 = FileInstall("C:\Dokumente und Einstellungen\Martin\Desktop\wow_logo.BMP", @TempDir & "\wow_logo.BMP")
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("WoW Login!", 210, 318, 420, 217)
GUISetBkColor(0x000000)
$input1 = GUICtrlCreateInput("", 16, 139, 177, 21)
$input2 = GUICtrlCreateInput("", 16, 223, 177, 21)
$Label1 = GUICtrlCreateLabel("Passwort", 16, 200, 49, 19)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xFFFFFF)
$Label2 = GUICtrlCreateLabel("User Name", 16, 115, 60, 19)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xFFFFFF)
$Button1 = GUICtrlCreateButton("Login", 64, 264, 83, 25, 0)
GUICtrlCreatePic(@TempDir & "\wow_logo.BMP", 31, 0, 150, 85)
$Label3 = GUICtrlCreateLabel("Auto Login", 74, 64, 68, 22)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xFFFFFF)
$MenuItem1 = GUICtrlCreateMenu("?")
$MenuItem2 = GUICtrlCreateMenuItem("About", $MenuItem1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $MenuItem2
MsgBox(64, "About", "WoW Auto Login" & @CRLF & "Version 1.0" & @CRLF & "" & @CRLF & "Copyright © 2008" & @CRLF & "By Slash")
Case $Button1
run($WoW)
sleep("7000")
Send(GUICtrlRead($input1))
sleep("20")
send("{tab}")
sleep("20")
Send(GUICtrlRead($input2))
send("{enter}")
exit
EndSwitch
WEnd -
poste mal dein script wie es jetzt ist und ich baue dir das mal ein
-
Ich misch mich mal nicht ein aber
[Eistees Meinung]
hatt das denn dann überhaupt einen sinn ?
lieber nur eine schrift dafür dann aber immer richtig formattiert
[{Eistees Meinung] -
Ähm mal ne generelle frage
wird beim speichern einer Text datei die schrift denn überhaupt übernommen ?
weil wenn nicht wäre es sinnvoller die option des schrift wählens herauszulassen