|
| Autor |
Nachricht |
spartacus_
Newbie
Anmeldedatum: 16.12.2007
Beiträge: 8
|
WWW Link öffnen
Verfasst am: 16.12.2007, 19:50 |
|
|
Guten Abend,
suche nach einem einfachen, kompakten Quellcode, der mir eine Internetseite (http://www.google.de) in einem bestimmten Intervall (3h) öffnet. Dies soll geschehen, wenn das Pogramm (*.exe) geöffnet wird, ohne einen Button zu drücken o.ä..
Bin durch die SuFu u. Google leider nicht fündig geworden und hoffe im richtigen Sub-Forum zu sein. 
lg. spartacus  |
|
| |
|
 |
big earl_
Coder
Anmeldedatum: 11.05.2007
Beiträge: 208
|
Verfasst am: 16.12.2007, 19:52 |
|
|
Also nur damit ich das richtig verstehen..
du möchtest, dass wenn dein programm geöffnet wird, soll die seite google nach 3 stunden geöffnet werden ??? |
|
| |
|
|
spartacus_
Newbie
Anmeldedatum: 16.12.2007
Beiträge: 8
|
Verfasst am: 16.12.2007, 19:59 |
|
|
| big earl hat Folgendes geschrieben: | Also nur damit ich das richtig verstehen..
du möchtest, dass wenn dein programm geöffnet wird, soll die seite google nach 3 stunden geöffnet werden ??? |
nicht nach 3stunden, sondern alle 3 Stunden soll die Seite Google geöffnet werden |
|
| |
|
|
c0re_
« Moderator »
Anmeldedatum: 29.11.2007
Beiträge: 425
|
Verfasst am: 16.12.2007, 20:06 |
|
|
Du brauchst zuerst zwei Private Declares:
| Code: | Declare Sub Sleep Lib "kernel32" (Byval dwMilliseconds As Long)
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hWnd As Long, ByVal lOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long |
Die Erste ist für die Pause, die Zweite für das Öffnen der URL.
Folgendes muss dann ins Form Load:
| Code: | Sprungmarke:
Sleep 10800000
Call ShellExecute(App.PrevInstance, "Open", "http://www.google.de", "", "", 1)
GoTo Sprungmarke: |
Ich erkär dir mal die Sleep Funktion. "Sleep 1" wäre eine Pause von 1 Millisekunde.
1 * 1000 für eine Sekunde. 1000 * 60 für eine Minute. 60000 * 60 für eine Stunde.
* 3 für 3 Stunden. So hast du deine 3 stündige Pause. Dann wird die URL geöffnet
und es geht wieder mit der Pause los (durch Sprungmarke).
D.h. du hast eine Endlosschleife.
Zuletzt bearbeitet von c0re_ am 16.12.2007, 20:09, insgesamt einmal bearbeitet |
|
| |
|
|
big earl_
Coder
Anmeldedatum: 11.05.2007
Beiträge: 208
|
Verfasst am: 16.12.2007, 20:08 |
|
|
| ist das denn nicht einie millisekunden ? |
|
| |
|
|
c0re_
« Moderator »
Anmeldedatum: 29.11.2007
Beiträge: 425
|
Verfasst am: 16.12.2007, 20:11 |
|
|
Hab doch schon editiert.  |
|
| |
|
|
Jolo_
Coder
Anmeldedatum: 20.03.2007
Beiträge: 210
|
Verfasst am: 16.12.2007, 20:11 |
|
|
Ja hat er doch geschireben oO
//Edit: Ah okok 
//Edit2: Aber ich glaub das Frisst ziemlich viele Ressourcen oder?
Ich würds mit Time machen: Also beim Start Die Zeit abfragen und dan in bestimmten abständen checken welche zeit gerade ist oder so |
|
| |
|
|
spartacus_
Newbie
Anmeldedatum: 16.12.2007
Beiträge: 8
|
...
Verfasst am: 16.12.2007, 20:16 |
|
|
 Frage ist mir Peinlich, aber ich bin auf dem Gebiet noch "ziemlich" neu... aber wie mache ich das mit den Declares und der Form in VB62008 Express Edition? Könntest du mir den Code "copy&paste" fertig posten und kurz angeben, wohin ich den Code-Schnipsell einfügen soll?
BiG ThX für den rasanten Support
PS: Ist es schwierig, dieses Tool dann in die Registry automatisch einzutragen, damit das bei jedem Systemstart mitstartet? |
|
| |
|
|
c0re_
« Moderator »
Anmeldedatum: 29.11.2007
Beiträge: 425
|
Verfasst am: 16.12.2007, 20:23 |
|
|
| Code: | Declare Sub Sleep Lib "kernel32" (Byval dwMilliseconds As Long)
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hWnd As Long, ByVal lOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Form_Load()
Sprungmarke:
Sleep 10800000
Call ShellExecute(App.PrevInstance, "Open", "http://www.google.de", "", "", 1)
GoTo Sprungmarke:
End Sub |
Kannst du so in's leere Code Fenster kopieren.
Wenns noch im Hintergrund laufen soll, stellst du entweder die Eigenschaft "Visible" des
Formulars auf "False", oder fügst im Form Load noch Folgendes ein:
Für Autostart einfach Google benutzen, ist recht leicht. |
|
| |
|
|
spartacus_
Newbie
Anmeldedatum: 16.12.2007
Beiträge: 8
|
Fehlermeldung
Verfasst am: 16.12.2007, 20:48 |
|
|
danke c0re, allerdings spuckt meine IDE bei folgender Zeile eine Fehlermedlung aus
| Code: | | Call ShellExecute(App.PrevInstance, "Open", "http://www.google.de", "", "", 1) |
Fehlermeldung: Name 'App' is not declared.
 Wo liegt das Problem? Kann es sein, dass VB ein Programm braucht, um den Link zu öffnen? |
|
| |
|
|
Jolo_
Coder
Anmeldedatum: 20.03.2007
Beiträge: 210
|
Verfasst am: 17.12.2007, 08:54 |
|
|
Wieso Postest du in VB6 Fragen über VB .NET ???
Wende dich an die .NETler weiter unten ist das .NET Forum...
MfG jolo |
|
| |
|
|
spartacus_
Newbie
Anmeldedatum: 16.12.2007
Beiträge: 8
|
Verfasst am: 18.12.2007, 01:09 |
|
|
| Jolo hat Folgendes geschrieben: | Wieso Postest du in VB6 Fragen über VB .NET ???
Wende dich an die .NETler weiter unten ist das .NET Forum... |
Tut mir leid, wenn ich hier als Newcommer im falschen Forum gelandet bin. Heißt das, dass die Error Message desshalb kommt, weil ich statt VB6, in einer VB .NET IDE code?
wenn der gesamte Code, in VB .NET geschrieben ist, bitte den Topic => moven => sorry! |
|
| |
|
|
Jolo_
Coder
Anmeldedatum: 20.03.2007
Beiträge: 210
|
Verfasst am: 18.12.2007, 11:00 |
|
|
Das:
| Code: | Declare Sub Sleep Lib "kernel32" (Byval dwMilliseconds As Long)
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hWnd As Long, ByVal lOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Form_Load()
Sprungmarke:
Sleep 10800000
Call ShellExecute(App.PrevInstance, "Open", "http://www.google.de", "", "", 1)
GoTo Sprungmarke:
End Sub |
Ist auf jeden Fall VB6 ^^
MfG Jolo |
|
| |
|
|
spartacus_
Newbie
Anmeldedatum: 16.12.2007
Beiträge: 8
|
Problem
Verfasst am: 18.12.2007, 22:51 |
|
|
nachdem wir jetzt wissen, dass es sich tatsächlich um ein VB6 Problem handelt, bitte ich nochmals um Hilfe bei folgendem Error Code:
| Zitat: | Fehler beim Kompilieren:
Nach End Sub, End Function oder End Property können nur Kommentare stehen |
Anbei noch ein (hoffentlich) aufschlussreicher Screenshot
Direkt Link: http://img139.imageshack.us/img139/7586/vb6errorsb6.jpg
Was, verdammt nochmal mache ich falsch!?
lg. spartacus |
|
| |
|
|
tr4st_
« Moderator »
Anmeldedatum: 17.12.2007
Beiträge: 315
Wohnort: Private Class _ Villa()
|
Verfasst am: 18.12.2007, 23:04 |
|
|
Du hast zwei mal "Private Sub Form_Load()" geöffnet 
Und wenn ich mich nicht irre kommt der "Declare Sub Sleep Lib" Part in die Deklaration und nicht in "Form_Load()" somit ist das "Private Sub Form_Load()" darüber überflüssig.
Allerdings bin ich genauso ein Anfänger (gestern begonnen) das sind nur meine rein logischen Schlussfolgerungen. |
|
| |
|
|
spartacus_
Newbie
Anmeldedatum: 16.12.2007
Beiträge: 8
|
Verfasst am: 19.12.2007, 00:56 |
|
|
| tr4st hat Folgendes geschrieben: | Du hast zwei mal "Private Sub Form_Load()" geöffnet
Und wenn ich mich nicht irre kommt der "Declare Sub Sleep Lib" Part in die Deklaration und nicht in "Form_Load()" somit ist das "Private Sub Form_Load()" darüber überflüssig.
Allerdings bin ich genauso ein Anfänger (gestern begonnen) das sind nur meine rein logischen Schlussfolgerungen. |
hab das "Private Sub Form_Load()" mal entfernt und nochmal versucht zu kompilieren, geht aber nach wie vor nicht... verdammt! |
|
| |
|
|
tr4st_
« Moderator »
Anmeldedatum: 17.12.2007
Beiträge: 315
Wohnort: Private Class _ Villa()
|
Verfasst am: 19.12.2007, 09:43 |
|
|
Hast du auch die Deklaration unter Deklaration eingetragen?
Screenshot ansehen |
|
| |
|
|
spartacus_
Newbie
Anmeldedatum: 16.12.2007
Beiträge: 8
|
...
Verfasst am: 19.12.2007, 10:05 |
|
|
| tr4st hat Folgendes geschrieben: | | Hast du auch die Deklaration unter Deklaration eingetragen? |
Ja, hab ich gemacht, allerdings kommt dann folgende Fehlermeldung:
DirektLink: http://img212.imageshack.us/img212/2320/clipboard01xc2.jpg
PS: Wenn ihr den Code bei euch in die IDE einfügt und versucht zu kompilieren, funktioniert das dann reibungslos? |
|
| |
|
|
Registrieren
Login
