1 Question :)

[Yagel]

Hey guys, i made a program with this lovley Scrpting Langauge that downloads a song from a site.

and i share it at some forum, but people say its opening the Run [ with send("#r") that i did..]

and thats it it stoppes.

anyone knows why? [ maybe they need some dll filles, net frame work ? or something? ]

btw, this is the script:

expandcollapse popup

#Region
#AutoIt3Wrapper_icon=Icon_1.ico
#AutoIt3Wrapper_Res_Comment=100FM.co.il Auto Song Downloader
#AutoIt3Wrapper_Res_Description=SXHacker
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=SXHacker
#AutoIt3Wrapper_Res_Language=1037
#EndRegion
$szName = InputBox(Default, "הכנס את השם של השיר", "", " M", Default, Default, Default, Default)
Switch @error
Case 0
    Switch $szName
    Case "a", "b", "c", "d", "e"
        $msg = "הכנס שם נורמלי בבקשה."
    Case "QP"
        $msg = "הכנס שם נורמלי בבקשה."
    Case "asdf" to "1234"
        $msg = "הכנס שם נורמלי בבקשה."
    Case Else
        Send("#r")
        WinWaitActive("Run")
        Send("cmd{ENTER}")
        sleep(200)
        Send("@echo off{ENTER}")
        sleep(150)
        Send("cls{ENTER}")
        sleep(150)
        Send("cd c:\Documents And Settings\%username%\Desktop\{ENTER}")
        sleep(150)
        send("cls{ENTER}")
        sleep(150)
        send("mkdir 100_FM_Songs{ENTER}")
        sleep(150)
        send("cls{ENTER}")
        sleep(150)
        send("cd c:\Documents And Settings\%username%\Desktop\100_FM_Songs{ENTER}")
        sleep(150)
        send("cls{ENTER}")
        sleep(200)
        send("wget.exe http://www.100fm.co.il/player/mp3/" & $szName & ".mp3" & "{ENTER}")
EndSwitch
EndSwitch

[ it got some Hebrew langauge in it, ignore it, not important ]

[weaponx]

Save yourself some trouble and use the builtin InetGet() function instead of Wget.

[Nahuel]

Try to use InetGet()

[Yagel]

Aight ty , but you know something about my problem? Why its not working at ALL ? it just opening the Run?..=o

Edited October 3, 2007 by Yagel

[Blue_Drache]

Because you're not using INetGet()

[Yagel]

Thank you all =] working!

#Region
#AutoIt3Wrapper_icon=Icon_1.ico
#AutoIt3Wrapper_Res_Comment=100FM.co.il Auto Song Downloader
#AutoIt3Wrapper_Res_Description=SXHacker
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=SXHacker
#AutoIt3Wrapper_Res_Language=1037
#EndRegion
$szName = InputBox(Default, "הכנס את השם של השיר", "", " M", Default, Default, Default, Default)
Switch @error
Case 0
    Switch $szName
    Case "a", "b", "c", "d", "e"
        $msg = "הכנס שם נורמלי בבקשה."
    Case "QP"
        $msg = "הכנס שם נורמלי בבקשה."
    Case "asdf" to "1234"
        $msg = "הכנס שם נורמלי בבקשה."
    Case Else
        InetGet("http://www.100fm.co.il/player/mp3/" & $szName & ".mp3", "C:\" & $szName & ".mp3")
EndSwitch
EndSwitch

is it ok ?

Edited October 3, 2007 by Yagel

[PsaltyDS]

Aight ty , but you know something about my problem? Why its not working at ALL ? it just opening the Run?..=o

Glad you got it working. If you are still academically interested in the other way, take out the @echo off command and run it so you can see what it's doing. This works fine for me, for example:

Send("#r")
WinWaitActive("Run")
Sleep(2000)
Send("cmd{ENTER}")
Sleep(2000)
Send("cd c:\Documents And Settings\%username%\Desktop\{ENTER}")
Sleep(2000)
Send("dir{ENTER}")
Sleep(2000)
Send("exit{ENTER}")

is it ok ?

It is if it works, you tell us!

Edited October 3, 2007 by PsaltyDS

[martin]

Hey guys, i made a program with this lovley Scrpting Langauge that downloads a song from a site.

and i share it at some forum, but people say its opening the Run [ with send("#r") that i did..]

and thats it it stoppes.

anyone knows why? [ maybe they need some dll filles, net frame work ? or something? ]

btw, this is the script:

expandcollapse popup

#Region
#AutoIt3Wrapper_icon=Icon_1.ico
#AutoIt3Wrapper_Res_Comment=100FM.co.il Auto Song Downloader
#AutoIt3Wrapper_Res_Description=SXHacker
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=SXHacker
#AutoIt3Wrapper_Res_Language=1037
#EndRegion
$szName = InputBox(Default, "הכנס את השם של השיר", "", " M", Default, Default, Default, Default)
Switch @error
Case 0
    Switch $szName
    Case "a", "b", "c", "d", "e"
        $msg = "הכנס שם נורמלי בבקשה."
    Case "QP"
        $msg = "הכנס שם נורמלי בבקשה."
    Case "asdf" to "1234"
        $msg = "הכנס שם נורמלי בבקשה."
    Case Else
        Send("#r")
        WinWaitActive("Run")
        Send("cmd{ENTER}")
        sleep(200)
        Send("@echo off{ENTER}")
        sleep(150)
        Send("cls{ENTER}")
        sleep(150)
        Send("cd c:\Documents And Settings\%username%\Desktop\{ENTER}")
        sleep(150)
        send("cls{ENTER}")
        sleep(150)
        send("mkdir 100_FM_Songs{ENTER}")
        sleep(150)
        send("cls{ENTER}")
        sleep(150)
        send("cd c:\Documents And Settings\%username%\Desktop\100_FM_Songs{ENTER}")
        sleep(150)
        send("cls{ENTER}")
        sleep(200)
        send("wget.exe http://www.100fm.co.il/player/mp3/" & $szName & ".mp3" & "{ENTER}")
EndSwitch
EndSwitch

To find out why the #r appears not to work I think you need to add some extra code.

Instead of winWaitActive("Run"), use something like

if WinWaitActive("Run","",5) = 0 then

msgbox(0,'Run dialog not detected!','OK')

exit

endif

In case the window doesn't have the title "Run" maybe you aught to detect the window class 32770.

EDIT: Oops, PsaltyDS has nudged a reply in. Yes removing the @echo off could help find out what's wrong.

Edited October 3, 2007 by martin

[Yagel]

Oh , i'm sorry all i figured it out, every body in Israel , [ not every body yes.. ] got an Hebrew computer exept me DOH! :|

so its not Run .. its in Hebrew... stupid me :|

thank you all for helping .. !