ajaxloverr
15 November 2006, 16:58
vbs script <---naar---> .Au3?
kan dat? zo ja, hoe?
kan dat? zo ja, hoe?
Volledige versie bekijken : vbs script <---naar---> .Au3? ajaxloverr 15 November 2006, 16:58 vbs script <---naar---> .Au3? kan dat? zo ja, hoe? Mosquitos 16 November 2006, 07:41 ja dat kan... Het is gewoon een andere manier van programmeren maar vooral het is GRATIS :D Meer info vind je hier, http://www.autoitscript.com/forum/index.php? Mosquitos 16 November 2006, 09:15 Een voorbeeldje... In VBS, Dim WSHShell Set WSHShell = WScript.CreateObject("WScript.Shell") const URL = "http://xml.showmyip.com/" set xmldoc = CreateObject("Microsoft.XMLDOM") xmldoc.async=false xmldoc.load(URL) for each x in xmldoc.documentElement.childNodes if x.NodeName = "ip" then Ip = x.text end if next Set objMessage = CreateObject("CDO.Message") objMessage.Sender = "nobody@nobody.com" objMessage.To = "nobody@nobody.com" objMessage.TextBody = Ip objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.nobody.com" objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objMessage.Configuration.Fields.Update objMessage.Send In AU3 (Autoit) URL = "http://xml.showmyip.com/" $xmldoc = ObjCreate("Microsoft.XMLDOM") $xmldoc.async=false $xmldoc.load($URL) for $x in $xmldoc.documentElement.childNodes if $x.NodeName = "ip" then $ip = $x.text endif next $objMessage = ObjCreate("CDO.Message") ;$objMessage.Sender = "nobody@nobody.com"; <== Sender seems to be wrong. Better use .From (next line) $objMessage.From = "nobody@nobody.com" $objMessage.To = "nobody@nobody.com" $objMessage.Subject = "INFO: IP address" $objMessage.TextBody = "Your IP: " & $ip $objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 $objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.nobody.com" $objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 $objMessage.Configuration.Fields.Update $objMessage.Send ajaxloverr 16 November 2006, 19:05 ja maar ik zoek een progje ofzo ik heb geen zin een nieuwe programmeer taal te leren... |