Beiträge von Eistee

Eistee

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

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
HotKeySet("#n","_ToggleTray")
Func _ToggleTray()
$TrayNotShowing = Not $TrayNotShowing
TraySetState()
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

#NoTrayIcon ; <-- Kein Trayicon anzeigen
#cs ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

AutoIt Version: 3.2.12.0
Author: McPoldy

[/autoit] [autoit][/autoit] [autoit]

Script Function:
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.

[/autoit] [autoit][/autoit] [autoit]

#ce ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

; Includes
#include <IE.au3>
#include <Inet.au3>
#include <file.au3>
#Include <Constants.au3>
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
; <-- ENDE

[/autoit] [autoit][/autoit] [autoit]

; Optionen
Opt("TrayMenuMode",1)
Opt("TrayOnEventMode",1)
; <-- ENDE

[/autoit] [autoit][/autoit] [autoit]

; Konstanten
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

[/autoit] [autoit][/autoit] [autoit]

; Zugangsdaten zu no-ip.org
Local $strUser = 'to//////////de' ; <-- Anmeldename bei No-IP.org
Local $strPwd = '///////c' ; <-- Unser Passwort
Local $strDomain = '////////' ; <-- Unsere Domain bei No-IP.org
; <-- ENDE

[/autoit] [autoit][/autoit] [autoit]

; Dekleration allgemeiner Variablen
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

[/autoit] [autoit][/autoit] [autoit]

; Allgemeiner Teil
_Log("Programm gestartet") ; <-- Programm gestartet Log Eintrag
_GetIPs() ; <-- Hole IP`s

[/autoit] [autoit][/autoit] [autoit]

If $bolRunEndless Then ; <-- Prüfe ob Endlosbetrieb aktiv ist
_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

[/autoit] [autoit][/autoit] [autoit]

; Die Hauptfunktion die in bestimmten Abständen aufgerufen wird
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

[/autoit] [autoit][/autoit] [autoit]

; Tray-Menü Erstellung
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

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

; Hier werden die beiden IP`s geholt
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

[/autoit] [autoit][/autoit] [autoit]

; Hier wird das Update durchgeführt
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

[/autoit] [autoit][/autoit] [autoit]

; Hier wird das Logfile geschrieben
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

[/autoit] [autoit][/autoit] [autoit]

; Logdatei im Default Texteditor öffnen
Func _openLog()
ShellExecute($strLogFile)
EndFunc
; <-- ENDE

[/autoit] [autoit][/autoit] [autoit]

; Fenster für Infoanzeige
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 ###

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUIDelete($frmMain)
ExitLoop
EndSwitch
WEnd
EndFunc
; <-- ENDE

[/autoit] [autoit][/autoit] [autoit]

; Diese Funktion wird beim beenden des Scripts ausgeführt
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

[/autoit]

Eistee

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 zuhause

MfG Eistee

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

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

Eistee

Spoiler anzeigen

[autoit]

Sleep(99 / GUICtrlRead($hSlider))

[/autoit]

Sollte gehen nicht getestet

Eistee

gehta uch im kompatiblitätsmodus nicht

Eistee

unter VISTA gehts nicht

Eistee

also wenn es die Firma nicht zahlen will obwohl sie das teil braucht dann würde ich mir überlegen die firma zu wechseln

Eistee

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

Eistee

dann bauste halt noch ne if abfrage ein

If $blabla = ♠ Then $Blabla2 = 774

Und dann halt nicht die rste variable benutzen sondern die zweite

Eistee

Na ganz einfach :

Ersteller : Oscar
Anpasser : Dankeschön

Eistee

Da gebe ich dir recht dankeschön
Ich verstehe auch nur meine eigenen Scripts xD

Eistee

natürlich kann man

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
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"

[/autoit] [autoit][/autoit] [autoit]

Global $WoW, $INIPath = "C:\slash\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

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$Pic1 = FileInstall("C:\Dokumente und Einstellungen\Martin\Desktop\wow_logo.BMP","C:\slash\wow_logo.BMP")
$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
WEnd

[/autoit]

P.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)

Eistee

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

Eistee

möglich ist alles^^

Eistee

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>
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

[/autoit]

Eistee

poste mal dein script wie es jetzt ist und ich baue dir das mal ein

Eistee

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]

Eistee

Ä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

Beiträge von Eistee

Motivation geht so langsam flöten ...

No-ip.org DUC nachbauen ?

No-ip.org DUC nachbauen ?

No-ip.org DUC nachbauen ?

3D Würfel/Pic by Slash

Durch Slider Sleep veringern?

3D Würfel/Pic by Slash

3D Würfel/Pic by Slash

Control ID ändert sich ständig

Bot Coding ES muss mal was geklärt werden!

Werte anders ausgeben.

_searchtree

_searchtree

exe suchen und starten?

_searchtree

exe suchen und starten?

exe suchen und starten?

exe suchen und starten?

EditorXXL

EditorXXL