Dynamic DNS Update Script

[sbt]

This is my first script (surely not good) or better made of parts of scripts from other members of this great forum. It works fine for me. Correct it if or modify it if you want. Hope you enjoy

#include <GUIConstants.au3>

#include <Inet.au3>

#include <IE.au3>

$Test = ObjCreate("Shell.Explorer.2")

$SinkObject=ObjEvent($Test,"IEEvent_","DWebBrowserEvents")

if @error then

Msgbox(0,"COM Test","Fehler! ObjEvent: Kann 'DWebBrowserEvents' Interface nicht benutzen.")

exit

endif

$main_GUI = GUICreate("Dyn. IP Updater by Krismer", 340, 480)

$GUIActiveX = GUICtrlCreateObj ( $Test, 10, 29, 320, 82)

$Group1 = GUICtrlCreateGroup("Menü", 1, 112, 338, 210, -1, $WS_EX_TRANSPARENT)

$Tab1 = GUICtrlCreateTab(10, 130, 321, 190)

$TabSheet1 = GUICtrlCreateTabItem("DynUpdater")

$GUIPICTURE = GuiCtrlCreatePic(@ScriptDir & "\d.jpg", 130, 175, 80, 80)

$GUI_Button_DynUpdate = GUICtrlCreateButton("DyndnsUpdate", 15, 175, 100, 30)

$GUI_Button_DynLocal = GUICtrlCreateButton("Dyndns127.0.0.1", 225, 175, 100, 30)

$GUI_Button_NoipUpdate= GUICtrlCreateButton("No-IpUpdate", 15, 225, 100, 30)

$GUI_Button_NoipLocal = GUICtrlCreateButton("No-Ip127.0.0.1", 225, 225, 100, 30)

$GUI_Button_Close = GUICtrlCreateButton("Esc & set all to 127.0.0.1", 90, 270, 160, 30)

$TabSheet2 = GUICtrlCreateTabItem("Accounts")

GuiCtrlCreateLabel("Dyndns", 20, 171, 90, 20,$SS_CENTER,$SS_CENTERIMAGE)

GuiCtrlSetBkColor(-1, 0x86A8D6)

GuiCtrlCreateLabel("User", 124, 171, 90, 20,$SS_CENTER,$SS_CENTERIMAGE)

GuiCtrlSetBkColor(-1, 0x86A8D6)

GuiCtrlCreateLabel("Password", 228, 171, 90, 20,$SS_CENTER,$SS_CENTERIMAGE)

GuiCtrlSetBkColor(-1, 0x86A8D6)

GuiCtrlCreateLabel("No-IP", 20, 228, 90, 20,$SS_CENTER,$SS_CENTERIMAGE)

GuiCtrlSetBkColor(-1, 0x86A8D6)

GuiCtrlCreateLabel("User", 124, 228, 90, 20,$SS_CENTER,$SS_CENTERIMAGE)

GuiCtrlSetBkColor(-1, 0x86A8D6)

GuiCtrlCreateLabel("Password", 228, 228, 90, 20,$SS_CENTER,$SS_CENTERIMAGE)

GuiCtrlSetBkColor(-1, 0x86A8D6)

$Save = GuiCtrlCreateButton("Save", 118, 285, 100, 30)

$dya = IniRead("dynupdater.ini", "www.dyndns.org", "Dyndns Account", "")

$da = GuiCtrlCreateInput("" & $dya, 20, 196, 90, 20)

$dyb = IniRead("dynupdater.ini", "www.dyndns.org", "User Name", "")

$db = GuiCtrlCreateInput("" & $dyb, 124, 196, 90, 20)

$dyc = IniRead("dynupdater.ini", "www.dyndns.org", "Password", "")

$dc = GuiCtrlCreateInput("" & $dyc, 228, 196, 90, 20, $ES_PASSWORD)

$nia = IniRead("dynupdater.ini", "www.no-ip.org", "No-IP Account", "")

$na = GuiCtrlCreateInput("" & $nia, 20, 253, 90, 20)

$nib = IniRead("dynupdater.ini", "www.no-ip.org", "User Name", "")

$nb = GuiCtrlCreateInput("" & $nib, 124, 253, 90, 20)

$nic = IniRead("dynupdater.ini", "www.no-ip.org", "Password", "")

$nc = GuiCtrlCreateInput("" & $nic, 228, 253, 90, 20, $ES_PASSWORD)

GUICtrlCreateTabItem("")

GUISetState(@SW_SHOW, $main_GUI)

$GUI_Label_Status = GUICtrlCreateLabel ("Status:", 10, 352 , 320, 30 )

$GUI_Progress = GUICtrlCreateProgress (10, 330 , 320 , 20 )

$GUI_Edit_Log = GUICtrlCreateEdit ("Progress:" & @CRLF, 10, 385 , 320 , 90)

GUISetState(@SW_SHOW)

$PublicIP = _GetIP()

GuiCtrlCreateLabel("Die WAN IP ist: " & $PublicIP, 10, 10, 320, 20,$SS_CENTER,$SS_CENTERIMAGE)

GuiCtrlSetBkColor(-1, 0x86A8D6)

GUICtrlSetFont (-1,9, 400, 1, "Courier New Bold")

While 1

$msg = GUIGetMsg()

Switch $msg

Case $GUI_EVENT_CLOSE

ExitLoop

Case $GUI_Button_DynUpdate

If StringLen(GUICtrlRead($da)) = 0 Then

MsgBox(64, "Dynupdater", "Type Account", 3)

Else

$Test.navigate("http://"&GUICtrlRead($db)&":"&GUICtrlRead($dc)&"@members.dyndns.org/nic/update?system=dyndns&wildcard=NOCHG&hostname="&GUICtrlRead($da))

_IELoadWait($Test)

EndIf

Case $GUI_Button_NoipUpdate

If StringLen(GUICtrlRead($na)) = 0 Then

MsgBox(64, "Dynupdater", "Type Account", 3)

Else

$Test.navigate("http://dynupdate.no-ip.com/dns?username="&GUICtrlRead($nb)&"&password="&GUICtrlRead($nc)&"&hostname="&GUICtrlRead($na))

_IELoadWait($Test)

EndIf

Case $GUI_Button_DynLocal

If StringLen(GUICtrlRead($da)) = 0 Then

MsgBox(64, "Dynupdater", "Type Account", 3)

Else

$Test.navigate("http://"&GUICtrlRead($db)&":"&GUICtrlRead($dc)&"@members.dyndns.org/nic/update?system=dyndns&wildcard=NOCHG&hostname="&GUICtrlRead($da)&"&myip=127.0.0.1")

_IELoadWait($Test)

EndIf

Case $GUI_Button_NoipLocal

If StringLen(GUICtrlRead($na)) = 0 Then

MsgBox(64, "Dynupdater", "Type Account", 3)

Else

$Test.navigate("http://dynupdate.no-ip.com/dns?username="&GUICtrlRead($nb)&"&password="&GUICtrlRead($nc)&"&hostname="&GUICtrlRead($na)&"&ip=127.0.0.1")

_IELoadWait($Test)

EndIf

Case $GUI_Button_Close

If StringLen(GUICtrlRead($da)) = 0 Then

Sleep(50)

Else

$Test.navigate("http://"&GUICtrlRead($db)&":"&GUICtrlRead($dc)&"@members.dyndns.org/nic/update?system=dyndns&wildcard=NOCHG&hostname="&GUICtrlRead($da)&"&myip=127.0.0.1")

_IELoadWait($Test)

EndIf

If StringLen(GUICtrlRead($na)) = 0 Then

Sleep(50)

Else

$Test.navigate("http://dynupdate.no-ip.com/dns?username="&GUICtrlRead($nb)&"&password="&GUICtrlRead($nc)&"&hostname="&GUICtrlRead($na)&"&ip=127.0.0.1")

_IELoadWait($Test)

Sleep(2000)

EndIf

ExitLoop

Case $Save

IniWrite("dynupdater.ini", "www.dyndns.org", "Dyndns Account", GUICtrlRead($da))

IniWrite("dynupdater.ini", "www.dyndns.org", "User Name", GUICtrlRead($db))

IniWrite("dynupdater.ini", "www.dyndns.org", "Password", GUICtrlRead($dc))

IniWrite("dynupdater.ini", "www.no-ip.org", "No-IP Account", GUICtrlRead($na))

IniWrite("dynupdater.ini", "www.no-ip.org", "User Name", GUICtrlRead($nb))

IniWrite("dynupdater.ini", "www.no-ip.org", "Password", GUICtrlRead($nc))

If StringLen(GUICtrlRead($da)) > 0 Then

MsgBox(64, "Dynupdater", "Account saved", 3)

ElseIf StringLen(GUICtrlRead($na)) > 0 Then

MsgBox(64, "Dynupdater", "Account saved", 3)

Else

MsgBox(64, "Dynupdater", "There are no accounts!", 3)

EndIf

EndSwitch

Sleep(50)

WEnd

GUIDelete ()

$SinkObject=""; Stop receiving events

$Test="" ; Stop IE

Exit

Func IEEvent_ProgressChange($Progress,$ProgressMax)

GUICtrlSetData( $GUI_Progress , ($Progress * 100) / $ProgressMax )

EndFunc

Func IEEvent_StatusTextChange($Text)

GUICtrlSetData( $GUI_Label_Status, $Text)

If $Text <> "" then GUICtrlSetData( $GUI_Edit_Log, "IE Status text changed to: " & $Text & @CRLF , "append" )

EndFunc

Func IEEvent_NavigateComplete2($oWebBrowser,$URL)

; IDispatch *pDisp,

; VARIANT *URL

GUICtrlSetData ( $GUI_Edit_Log, "IE has finished loading URL: " & $URL & @CRLF , "append" )

EndFunc

dynupdater.au3

[Pascal257]

Cool idea.

You should put this into Example Scripts forums...

And btw if you use [ autoit ] bbcode it would be better to read

greetings

Pascal

[martin]

@sbt

If that's your first script then you're already moving quite fast.

Have you had a look at Koda because it would have made it much easier to make your GUI?

[AutoItKing]

Tip: use [ autoit ] [ /autoit ] tags.

[sbt]

@sbt

If that's your first script then you're already moving quite fast.

Have you had a look at Koda because it would have made it much easier to make your GUI?

Oh i don't moving so quite fast. I nearly only copy parts of code from other members and it tooks me a long time. Thx for the tip with Koda.

[LWC]

This is my first script (surely not good) or better made of parts of scripts from other members of this great forum. It works fine for me. Correct it if or modify it if you want. Hope you enjoy

You forgot multiple #include lines and the fact that you must turn "&" into "&&" if you want it to display.

So here's a working version. I've also translated it from German to English so it's now usable worldwide.

But does anyone know why doesn't the "Escape" key escape the GUI? Also, how does one make it recheck the IP every X minutes?

dynupdater.au3

license.txt

Edited September 30, 2011 by LWC