• Herkunft: D-BaWü Ulm
  • Registrierungsdatum: 21-03-2001
  • Beiträge: 1.727

Thema: Fernsteuerung über Internet - VB

Also, in >> <A HREF="http://www.devshare.de/cgi-bin/ubb/ultimatebb.cgi?ubb=get_topic&f=24&t=000009" TARGET=_blank>http://www.devshare.de/cgi-bin/ubb/ultimatebb.cgi?ubb=get_topic&f=24&t=000009</A>  << hat ein Foren-Mitglied nach einer Fernsteuerung von einem Programm über das Internet gefragt. <BR>Zunächst mal ein paar Links:<P><A HREF="http://www.lab1.de/prod/winsock/" TARGET=_blank>LAB1.DE: <www.lab1.de/prod/winsock/>  - Beispielprogramme zum Thema Datenübertragung im Internet - auch ausserhalb vom WWW</A><P><A HREF="http://msdn.microsoft.com/library/en-us/vbenlr98/html/vastmsendkeys.asp?frame=true" TARGET=_blank>msdn.microsoft.com: <msdn.microsoft.com/library/en-us/vbenlr98/html/vastmsendkeys.asp>  - Microsofts offizielle Dokumentation zum Thema SendKeys (sendet Tastenanschläge an Applikationen - siehe "See Also")</A><P>msdn.microsoft.com: <A HREF="http://msdn.microsoft.com/library/default.asp?url=/library/en-us/mswnsk98/html/vbobjwinsockcontrol.asp" TARGET=_blank><msdn.microsoft.com/library/en-us/mswnsk98/html/vbobjwinsockcontrol.a sp> WinSock - die Offizielle Doku</A><BR><Beitrag wird vervollständigt werden><P>[ 26.08.2001: Beitrag editiert von: whiteheard ]<p>[ 29.08.2001: Beitrag editiert von: whiteheard ]

mfG whitehouse
  • Herkunft: D-BaWü Ulm
  • Registrierungsdatum: 21-03-2001
  • Beiträge: 1.727

Re: Fernsteuerung über Internet - VB

Und nun die grundsätzlichen Ideen/Daten (hmm, muss das ein Monolog bleiben?): <P>Ich schlage folgendes vor:<BR> <BR>Protokoll: UDP (Alternative zu TCP/IP, siehe Links)<P>der Ablauf:<P><BLOCKQUOTE><font size="1" face="Verdana, Helvetica, sans-serif">Code:</font><HR><pre><BR>----Client----+-UDP-+----Server--<BR>              |     | starte Programm,<BR>              |     | merke Zugriffsnummer <BR>-<BR>              |     | schalte Programm aufmerksam<BR>-<BR>              |     | Binde Port n<BR>  ------------+-----+----------<BR>              /     / listener<BR>-<BR>  sende Tasten| ->  | schalte listener<BR></pre><HR></BLOCKQUOTE><P>listener: schalte Programm aufmerksam, sende übertragene Tastenanschläge an dieses<P><Fortsetzung folgt (hier und in weiteren Beiträgen, viell.><p>[ 29.08.2001: Beitrag editiert von: whiteheard ]

mfG whitehouse
  • Herkunft: D-BaWü Ulm
  • Registrierungsdatum: 21-03-2001
  • Beiträge: 1.727

Re: Fernsteuerung über Internet - VB

ausgelagert (siehe Links/MSDN Library CD):<P><BLOCKQUOTE><font size="1" face="Verdana, Helvetica, sans-serif">Code:</font><HR><pre><BR>Dim pid<P>Sub LoadPrg(path, winstyle)<BR>  pid = Shell(path, winstyle)<BR>  '*evtl.:<BR>  'AppActivate pid<BR>End Sub<P>Sub SendToPrg(keys, wait)<BR>  AppActivate pid<BR>  SendKeys keys, wait<BR>End Sub<BR></pre><HR></BLOCKQUOTE><P>ach ja: man bekommt als Schüler, Student oder Lehrer ein Visual-Studio Pro SSL für etwa 200 DM (normal etwa 2000-3000 DM); allerdings sollte man sich die Lizenz ansehen<p>[ 30.08.2001: Beitrag editiert von: whiteheard ]

mfG whitehouse
  • Herkunft: D-BaWü Ulm
  • Registrierungsdatum: 21-03-2001
  • Beiträge: 1.727

Re: Fernsteuerung über Internet - VB

also:<P>sagen wir hier, die Portnummer 'ist' 2007; der Server heißt "cami.de" (könnt auch ne IP sein)<P>den WinSock-Control nennen wir je "WS"; Eigenschaften: beide: Protocol = sckUDPProtocol; Server: -keine notwendig-; Client: RemoteHost = "cami.de", RemotePort = 2007<P>in LApp ist der Name des zu ladenden Programms gespeichert<P>im Server binden wir das vorangegangene (LoadPrg, SendToPrg) an<P>[[Server]]<BR><BLOCKQUOTE><font size="1" face="Verdana, Helvetica, sans-serif">Code:</font><HR><pre><BR>Private Sub Form_Load<BR>  WS.Bind 2007<BR>  LoadPrg LApp<BR>End Sub<P>Private Sub WS_DataArrival(ByVal bytesTotal As Long)<BR>  Dim str As String<BR>  WS.GetData str, vbString, bytesTotal<BR>  SendToPrg str<BR>End Sub<BR></pre><HR></BLOCKQUOTE><P><BR>[[Client]]<BR><BLOCKQUOTE><font size="1" face="Verdana, Helvetica, sans-serif">Code:</font><HR><pre><BR><kommt noch><BR></pre><HR></BLOCKQUOTE><p>[ 30.08.2001: Beitrag editiert von: whiteheard ]

mfG whitehouse
  • Herkunft: D-BaWü Ulm
  • Registrierungsdatum: 21-03-2001
  • Beiträge: 1.727

Re: Fernsteuerung über Internet - VB

wenns niemand interessiert lass ichs

mfG whitehouse

6 Antwort von blaxun

  • Registrierungsdatum: 07-10-2001
  • Beiträge: 3

Re: Fernsteuerung über Internet - VB

Doch, mich interessiert es schon...<P>...zumal ich gerade am basteln bin, was ein Server-Überwachungstool angeht. Nur möchte ich dann nicht nur eine einfache Verbindung zu den Testrechnern aufbauen, sondern dann auch gerne wissen ob der Web-Service läuft, der SQL-Server funzt, die ASP-Engine einwandfrei funktioniert und sich der SMTP-Dienst nicht chon längst verabschiedet hat! Ich denke, in der Hinsicht wäre es dann doch wohl einfacher, wenn ich mir ein paar asp-seiten auf den server lege, die meinem client bei einer abfrage ein einfaches geht oder geht nicht entgegenschmettern. Aber was die Wartung des Tools an sich angeht, so wäre es doch ganz nett, wenn dieses als Server an einem Port zur Verfügung stände...(hmm, sieht dann aus wie ein kleiner Trojaner, was!? *ggg*) Nunja, ich werde erstmal an dem Tool herumbasteln, und melde mich dann wieder, wenn es um die Administration geht! C ya.<P>Ricksen

----------------------------------
  __
_/_  Ricksen
//  http://www.blaxunrise.de

blaxun's Webseite

  • Herkunft: D-BaWü Ulm
  • Registrierungsdatum: 21-03-2001
  • Beiträge: 1.727

Re: Fernsteuerung über Internet - VB

na, endlich mal jemand, den's intressiert ...<BR>jetzt hab ich nur vergessen, was ich schreiben wollte *g*<P>pS: hab dir ne private Nachricht geschickt<p>[ 07.10.2001: Beitrag editiert von: whiteheard ]

mfG whitehouse