vbs script <---naar---> .Au3?
kan dat? zo ja, hoe?
vbs script <---naar---> .Au3?
kan dat? zo ja, hoe?
ja dat kan...
Het is gewoon een andere manier van programmeren maar vooral het is
GRATIS
Meer info vind je hier,
http://www.autoitscript.com/forum/index.php?
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.SendIn 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
ja maar ik zoek een progje ofzo ik heb geen zin een nieuwe programmeer taal te leren...
Momenteel bekijken 1 gebruikers deze discussie. (0 leden en 1 gasten)
Favorieten/bladwijzers