hi,
ich will das bei laufendem rechner die verbindung zum internet automatisch erstellt wird. dazu benutze ich den taskplaner und setze die zeit und das prog. freenet.exe an. nur wie kann ich jetzt den pc selbst zum "verbinden" bringen.
kann man ein script schreiben, das das "Verbinden"-Button "drückt"??? wenn ja, wie würde das aussehen???
Vielen dank für eure hilfe
Sam
GarfTermy Serce1975 „freenet verbindung automatisieren“
...nimm das proggi dialright - das verbindet dich ganz nach deinen wünschen mit dem provider deiner wahl und ist freeware.
www.antares-gd.de ...dort unter freeware oder programme
;-)
UselessUser Serce1975 „freenet verbindung automatisieren“
Hallo Sam,
du kannst auch den Internet-Explorer so konfigurieren, dass er beim Öffnen automatisch die eingestellte Standard-Verbindung wählt (unter Einstellungen > Verbindungen > immer Standardverbindung wählen). Mit dem Taskplaner rufst du dann den IExplorer auf.
MfG
UselessUser
Yogibear Serce1975 „freenet verbindung automatisieren“
Hallo Sam,
ein Script, das einen Button drückt, gibt's wohl nicht, aber man kann natürlich ein entsprechendes Programm schreiben. Das sollte man jedoch besser nur tun, wenn es wirklich keine andere Möglichkeit gibt. Programme werden schließlich nicht immer gleich schnell gestartet und da kann es schon mal passieren, daß ein Klick ins Leere geht, weil der Button nicht rechtzeitig da war. Ich hab mal ein kleines Programm in Visual Basic geschrieben, daß mir eine lästige Nag-Screen eines Grafik-Programms wegklickt. Aber das ist in Deinem Fall gar nicht nötig, da Du zur Not sogar mit VBscript einen Tastendruck simulieren kannst.
Nun, wozu braucht man eine freenet.exe? Überflüssig! Ich mach Dir folgenden Vorschlag:
Du legst zwei DFÜ-Verbindungen an, nämlich "Freenet" mit der Nummer 01929 und "Freenet18-8" mit 019231760 und verwendest mein VBscript:
' If not connected, connect to Freenet dependent on daytime
' Open browser with start page
Option Explicit
On Error Resume Next
Dim WshShell
Dim tempDir,tempFile
Dim fileSystem,rasphone
Dim tempLink,IE
Dim i,status
Dim zeit,provider
Const RT = 1
Set WshShell = WScript.CreateObject("WScript.Shell")
tempDir = WshShell.ExpandEnvironmentStrings("%TEMP%")
tempFile = tempDir & "\freenet-connection.tmp"
' Create scripting runtime FileSystemObject
Set fileSystem = WScript.CreateObject("Scripting.FileSystemObject")
' Redirect connection status to temporary file
WshShell.Run "cmd /c rasdial >" & tempFile,0,TRUE
If Err.Number Then
WScript.Echo "Es konnte keine temporäre Datei '" & tempFile & "' erzeugt werden"
Err.Clear
End If
' Read connection status from temporary file
Set tempLink = fileSystem.OpenTextFile(tempFile,RT)
status = tempLink.ReadLine
If Err.Number Then
WScript.Echo "Die Ausgabe von 'rasdial' konnte nicht gelesen werden"
Err.Clear
End If
tempLink.Close
fileSystem.DeleteFile(tempFile)
If Err.Number Then
WScript.Echo "Die temporäre Datei '" & tempFile & "' konnte nicht gelöscht werden"
Err.Clear
End If
If Left(status,16) <> "Keine Verbindung" Then online
zeit = Abs(Left(Time,2)) ' Get system time
If zeit > 7 And zeit < 18 Then ' Select provider
provider = "Freenet" ' 8 till 18 o'clock
Else
provider = "Freenet18-8" ' 18 till 8 o'clock
End If
' Connect to provider
Set rasphone = WshShell.exec("rasphone.exe -d " & provider)
Do While rasphone.Status = 0
WScript.Sleep 100
Loop
online:
Set IE = WScript.CreateObject("InternetExplorer.Application")
With IE
.navigate "about:blank"
.visible=0
End With
Do while IE.busy
loop ' Wait until Internet Explorer is ready
With IE
.navigate "http://www.google.de"
.visible=0
End With
For i = 1 To 2
WScript.Sleep 1000 ' Need to wait 1 second
With IE ' Renavigate to avoid Freenet site
.navigate "http://www.google.de"
.visible=1
End With
Next
WshShell.AppActivate "Microsoft Internet Explorer" ' Activate window
WshShell.SendKeys("% x") ' Maximize window
finish:
Set fileSystem = Nothing
Set rasphone = Nothing
Set IE = Nothing
Set WshShell = Nothing
WScript.Quit
Ich gehe einfach mal davon aus, daß Du Windows XP oder Windows 2000 hast; für Windows 9x kann man ein ähnliches Script verwenden. Jedenfalls bringt das Script einige Vorteile mit sich. Zunächst einmal wählt es selbstständig den günstigsten Tarif aus. Dann öffnet es nach der Einwahl automatisch den Internet Explorer und maximiert dessen Fenster. Und was ich besonders angenehm finde: ich muß mir nicht immer die dämliche Freenet-Startseite anschauen. Das Script ruft nämlich einfach zweimal hintereinander Google auf und überspringt dadurch die Freenet-Seite.
Viel Spaß!
GarfTermy Serce1975 „freenet verbindung automatisieren“
...alles möglichkeiten...
mit dialright kannst du das alles ohne viel aufwand konfigurieren UND zusätzlich trennt dialright die verbindung auf wunsch auch wieder - d.h. du könntest für einen vorbestimmten zeitraum mit dem provider online gehen, der in der entsprechenden zeit der günstigste ist.
du kannst außerdem das proggi so konfigurieren, das es zwischen providern umschaltet, wenn ein anderer in dieser zeit günstiger ist...
also - ich finde das proggi für deine zwecke optimal.
nachteil der anderen lösungen ist, das der ie die verbindung bei inaktivität nach einer voreinstellbaren zeit trennt - das macht er aber unzuverlässig... denn: solange aktiv, solange auch verbindung.
;-)
Serce1975 Nachtrag zu: „freenet verbindung automatisieren“
folgendes noch, ich habe WIN98 somit weiß ich nicht ob dies von yogibear funzt, dann werde ich mal DIALRIGHT ausprob. Aber danke an alle.
Übrigens habe ich ein manuelles DFÜ-Netzwerk eingerichtet aber auch das will erst durch ein Klick verbunden werden. Mit dem IE muss ich noch mal ausprobieren
Yogibear Serce1975 „freenet verbindung automatisieren“
Nein, das funktioniert nicht. Aber ich hatte früher auch Windows 98 und ich hab sogar mein altes VBscript noch gefunden. Ist ziemlich ähnlich:
' If not connected, connect to Freenet dependent on daytime
' Open browser with start page
Option Explicit
On Error Resume Next
Dim zeit,provider,i
Dim shellObj,exploreObj
zeit = Abs(Left(Time,2)) ' Get system time
If zeit > 7 And zeit < 18 Then ' Select provider
provider = "Freenet" ' 8 till 18 o'clock
Else
provider = "Freenet18-8" ' 18 till 8 o'clock
End If
' Start Internet Explorer
Set exploreObj = WScript.CreateObject("InternetExplorer.Application")
With exploreObj
.navigate "about:blank"
.visible=0
End With
Do While exploreObj.busy
Loop ' Wait until Internet Explorer is ready
' Connect to provider
Set shellObj = WScript.CreateObject("WScript.Shell")
If Not Connected() Then
shellObj.Run("rundll32.exe rnaui,RnaDial " & provider)
Do
WScript.Sleep 500 ' Wait 0.5 seconds for connection
Loop Until Connected()
With exploreObj
.navigate "http://www.google.de"
.visible=0
End With
For i = 1 To 2
WScript.Sleep 1000 ' Need to wait 1 second
With exploreObj ' Renavigate to avoid Freenet site
.navigate "http://www.google.de"
.visible=1
End With
Next
End If
With exploreObj ' Navigate faster if already connected
.navigate "http://www.google.de"
.visible=1
End With
shellObj.AppActivate "Microsoft Internet Explorer" ' Activate window
shellObj.SendKeys("% x") ' Maximize window
Private Function Connected()
On Error Resume Next
Dim connections,connect
connections = shellObj.RegRead("HKLM\System\CurrentControlSet\Services\RemoteAccess\Remote Connection")
For Each connect In connections
Exit For
Next
Connected = (connect = 1)
End Function
Und falls jetzt noch einer kommt, der sagt, er habe aber Windows 3.11 - hier das ganze als Batch-Datei für DOS:
@echo off
:: If not connected, connect to Freenet dependent on daytime
:: and open Internet Explorer
rasdial | find "Keine Verbindung" >NUL
if errorlevel 1 goto online
set clock=%TIME:~0,2%
set first=%clock:~0,1%
if "%first%"==" " set clock=%clock:~1,2%
set provider=Freenet18-8
if /i %clock% geq 8 (
if /i %clock% lss 18 set provider=Freenet
)
rasdial %provider% >NUL
if errorlevel 633 (
rasdial /disconnect >NUL
echo Das Modem antwortet nicht
echo.
pause
goto end
)
if errorlevel 623 (
echo Es ist keine Verbindung "%provider%" vorhanden
echo.
pause
goto end
)
:online
call "C:\Programme\Internet Explorer\IEXPLORE.EXE"
:end
set clock=
set first=
set provider=
Serce1975 Nachtrag zu: „freenet verbindung automatisieren“
Danke. Das Progi ist sehr nützlich, einfach zu bedienen und freeware!
Nur noch eine Sache.
Ich habe ein Modem 56k und kann das übers Board so einstellen, dass der PC bei ring ring des Telefons hochfährt. So kann ich, aber leider auch andere, von außen steuern wann der hochfahren soll plus dialright einstellungen die geplanten Downloads fortsetzen. Ich habe zusätzlich einen Trojaner für mich installiert, mit Passwort, so das ich mit diskette den Client bei Freunden benutzen kann, und von dort aus neue Downloads in auftrag geben, oder überprüfen ob diese noch laufen usw. Screen-Control!
Bald krieg ich aber ISDN von Arcor welches ich mit einer Fritz nutzen werde. Wie kann ich denn hier von außen steuern, wann der PC sich hochfahren soll???
danke noch einmal an alle Beiträge, habe mich sehr über dialright gefreut!
