Visual Basic Forum

Verfasst am: 24.05.2012, 14:17 Aufrufe: 7

Hallo zusammen, da ich mit der Zeit gehen möchte und immer weniger PCs mit RS232 - Schnittstellen ausgestattet sind Crying or Very sad

, möchte ich in einer Anwendung (Kommunikation zwischen PC und einem Lasers) dem User die Möglichkeit geben, den Port über den er mit den Laser kommunizieren möchte (USB oder Serielle Schnittstelle) selber auszuwählen! Die Kommunikation über den RS232 - Port habe ich mittels System.IO.Ports ber ...

Verfasst am: 20.06.2011, 06:33 Aufrufe: 452

Hi Christopher, also den Code habe ich im Internet gefunden und an meine Bedürfnisse angepasst, aber wenn der Server nicht in seiner whileschleife bleibt wo er ständig "hören" kann dann verliert er doch die RequestID oder muss das dann ein anderes Problem sein wenn es nicht läuft? Option Explicit Private Sub Form_Load() ' Command1 deaktivieren Command1.Enabled = False ' Port 12345 soll a ...

Verfasst am: 25.01.2011, 11:33 Aufrufe: 816

150/" WIDTH="579" HEIGHT="200"> <param name=PORT value="2710,80"> <param name=background value="FFFF00"><param name=foregroundList value="000000"> <param name=backgroundList value="FFFF00"> <param name=suggestion value="Knuddels"> <param name=idPic value="FFFFFF"> <param name=appletID v ...

Verfasst am: 02.11.2010, 17:20 Aufrufe: 508

Hi all! Ich habe eine Soft in VB gemacht, die die Systemzeit seriell (Com-Port) an eine andere Software sendet. Habe ich das Meine und das andere Programm auf dem gleichen Rechner, muss ich mit meinem an den COM1 senden, ein Nullmodem-Kabel an COM2 brücken und mit dem anderen Programm dort die Daten wieder empfangen. Ich habe die Software "Virtual COM Port" gekauft. Dort kann ich eine Virtuelle Brück ...

Verfasst am: 02.11.2010, 17:08 Aufrufe: 410

Hi all! Für ein bestehendes Programm will ich mit VB folgende Informationen an den ComPort senden. Das Protokoll lautet: TN_RR_TAA_XXXXXXXXXXXXXXXXXXX<TAB><CS16><CR><FL> Für TN, RR, TAA und die Xes stehen irgendwelche Daten, die mir auch klar sind. Für CS16 steht aber in der Beschreibung: "Sum of all data bytes modular 65536 (cod in 4 heexa digit) in ASCII. Weiss jemand mit w ...

Verfasst am: 16.10.2010, 20:27 Aufrufe: 781

Hallo, ich bin gerade dabei mir eine Kommunikation über RS232 einzurichten. Testobjekt ist derzeit ein altes Modem um zu checken ob mein Projekt funzt. Wenn ich nun den Port COM1 öffnen will bekomme ich eine Fehlermeldung bei .open() "Der Zugriff auf den Anschluss COM1 wurde verweigert" Coding sieht so aus: With (SerialPort1) .PortName = SerialPort1.PortName .BaudRate = 9600 ...

Verfasst am: 03.10.2010, 13:51 Aufrufe: 538

Visible = True Dim con As New MySqlConnection("user id=launcher;password=[wurde Entfernt];host=212.227.139.23;database=acp;port=3306") Dim CMD As New MySqlCommand Dim reader Dim news As New List(Of String) Try con.Open() CMD.CommandText = "SELECT `By` FROM `motd` ORDER BY `ID` DESC LIMIT 0, 5& ...

Verfasst am: 01.10.2010, 09:54 Aufrufe: 1246

Hallo. Ich habe mir ein AVR programmiert und ihn an die serielle Schnittstelle angeschlossen. Sobald ich eine Taste am AVR drücke sendet dieser einmal die 1 an den Port. Jetzt möchte ich das in meine in Visual Basic Express 2010 programmierte Stoppuhr einbauen. Wenn die 1 gesendet wird, soll eine bestimmte Funktion in meinem Code ausgeführt werden. Ich habe schon einige Stunden im Netz gesucht, aber die meist ...

Verfasst am: 23.09.2010, 07:58 Aufrufe: 445

Hallo, das hilft dir bestimmt weiter: http://www.lvr.com/parport.htm Da gibt es einen Abschnitt 'Programming Tools for Port I/O and Interrupts' da kann man sich eine DLL herunterladen und ein VB6 Beispiel gibt es auch. Gruß Charly

Verfasst am: 22.09.2010, 19:21 Aufrufe: 445

... endes Problem: Ich mues ein Programm schreiben das einen Schrittmotor Controller bedient. Die Funktion ist so: Kommt ein Impulse an Pin 14 so dreht sich der 1. Motor um einen Schritt nach Rechts oder Links je nach dem ob Pin 4 High oder Low ist. Wird ein Impuls alle 2 microsekunden gsendet dreht sich der Motor. Hat jemand eine Idee wie ich das am besten realisieren kann?? Habe noch nie eine Parallel Port ...

Verfasst am: 31.08.2010, 07:29 Aufrufe: 466

... egt ein Label (Label1) und auf Form2 ein Textfeld (Text1) und du willst im Label1 den Text vom Textfeld anzeigen lassen dann sprichst du erst die form an und dann das betreffende Steuerelement also Form1.Label1.Caption = Form2.Text1.Text oder habe ich deine Frage Falsch verstanden winsock ist nicht ganz so einfach wie dass beispiel oben... da musst dich dann schon ein bisschen reinhängen port ...

Verfasst am: 25.08.2010, 12:52 Aufrufe: 1210

wie meinst du das? nur dein script? ja e nur dein script aber bevor du auf einem anderen rechner was auslesen kannst und es bei dir anzeigen zu lassen brauchst du eine server-exe auf dem pc deines nachbarn oder wo auch immer und dann noch seine ip, einen offenen port und dann musst nur mehr die verbindung herstellen zwischen server und client

Verfasst am: 25.08.2010, 11:53 Aufrufe: 1210

wie gesagt ich weis nichtmal obs winsock in .net jetz noch gibt aber sonst nicht schwer am server winsock1.localport = port windock1.listen am client winsock1.remoteip = ip winsock1.remoteport = port winsock1.connect ja und dann halt senddata

Verfasst am: 09.06.2010, 20:51 Aufrufe: 971

... ozessliste neu lade sich die Liste nicht mehr aktualisiert sondern einfach leer bleibt. Da ich den Fehler leider nicht auf einen bestimmten Abschnitt eingrenzen kann muss ich den ganzen Quelltext geben. Ich programmiere noch nicht so lange mit Visual-Basic und würde mich deshalb auch freuen wenn ihr mir eine Rückmeldung geben könntet wie der Quelltext sonst so ist. Gambo Hier mein Server Quellcode Import ...

Verfasst am: 16.03.2010, 16:56 Aufrufe: 1207

Hallo zusammen, ich suche eine Lösung mithilfe derer ich ein Gerät das an den Seriellen Port angeschlossen ist bedienen kann. Dazu muss ich irgendwie Daten über den seriellen Port ausgeben können. Innerhalb vom VB wird, so wie es scheint ein Tool benötigt, jedenfalls finde ich eine Menge hinweise auf "MSComm-Control“. Ich habe mir nun schon die Augen wundgesucht, finde das aber nirgendwo im VB. Question

...

Verfasst am: 19.02.2010, 21:49 Aufrufe: 939

hi. ich bin ganz neu und hab gedacht ich meld mich jetz endlich mal in nem forum an. also ich weis bisher wenig über vb doch ich bin einfach mal optimistisch. ich möchte den prallel port ansteuern und brauche noch etwas hilfe dabei. ich hab schonmal mit ms vb 2008 express edition eine form erstellt mit acht checkboxen. jetz möchte ich mit denen halt die ausgänge setzen. ich hab vista 32bit und einen laptop mit usb ...

Verfasst am: 31.01.2010, 14:55 Aufrufe: 567

Hallo zusammen, bin ganz neu hier im Forum und meine erstes Problem ist: Ich muss für die Schule eine Ampelanlage über den Parallel Port eines Rechners steuern. Hab mich da schon ein bisschen schlau gemacht und auch paar Artikel gefunden die das beschreiben. Nun ist es so, es gibt eine sogenannte Inpout32.dll, die die Funktionen für die Steuerung des Port enthält. Wenn ich jetzt sage ich möchte die 8 Ausgänge P ...

Verfasst am: 19.10.2009, 11:53 Aufrufe: 587

FTPS - Also FTP Verbindung via SSL ? Falls ja heißt das nicht FTPS sondern SFTP. Dann wundert es mich nicht das du nur Quatsch findest. Vom Grundaufbau her wie eine normale FTP Verbindung, nur das du den entsprechenden Port (22) statt (21) für normales FTP verwendest. Die Regeln für die Verbindung sind alle in der festgelegt. Sprich da steht genau drin, was man wann wie und wo zu senden hat und was man ggf.

Verfasst am: 20.07.2009, 08:21 Aufrufe: 701

Hallo, hab da ein Problem ich möchte eine Abfrage starten sobald mein Port keine Antwort mehr bekommt. Jedoch springt das Programm nicht mehr zurück. Weiß jemand was ich falsch gemacht habe? Sub Pause(ByRef serialPort As System.IO.Ports.SerialPort) Dim response As String ' serialPort.Open() 1: serialPort.WriteLine("SL&F") Try ...

Verfasst am: 17.07.2009, 09:24 Aufrufe: 834

Length Dim url As String = "https://Server" Dim port As String = "443" ' SSL Port 'Wenn der Port unterstützt wird, wird er an die URL angefügt If port <> "" Then ' 'Anfügen des Ports an den URI Dim u As New Uri(url) 'Get the host (example& ...

Verfasst am: 29.06.2009, 15:00 Aufrufe: 1100

Beschreibung:Dieses Snippet scant auf einem zu definierenden System eine angegebene UDP Portrange.Als Ergebnis wird zurückgeliefert, ob über den Port eine Verbindung hergestellt werden kann oder nicht.Auf einem Formular werden die n.g. Steruelemente zur Verfügung gestellt:1 Listview Steuerelement1 Command Button1 Backgroundworker1 ProgressbarDie Listview muss 3 Spaten enthalten, View sollte auf Details stehen.Funktio ...

Verfasst am: 29.06.2009, 14:59 Aufrufe: 1329

Beschreibung:Dieses Snippet scant auf einem zu definierenden System eine angegebene Portrange.Als Ergebnis wird zurückgeliefert, ob über den Port eine Verbindung hergestellt werden kann oder nicht.Auf einem Formular werden die n.g. Steruelemente zur Verfügung gestellt:1 Listview Steuerelement1 Command Button1 BackgroundworkerDie Listview muss 3 Spaten enthalten, View sollte auf Details stehen.Funktion:Visual Basic: Q ...

Verfasst am: 18.06.2009, 13:03 Aufrufe: 856

Description: Advanced Firewall application which blocks all TCP process based on rules you specify such as Remote Port, Process Name, Remote IP, and Local Port. Logs all activity and gives option to save log files. You can also save your settings and import/export them. You can block All processes by default and allow them based on a set of rules or block only based on those rules. You can password protect the firewa ...

Verfasst am: 15.06.2009, 19:05 Aufrufe: 942

Coder: Niknak!!Description: This is a simple multi-threaded port scanner programmed in VB.NET. It shows a way of connecting to a remote host via a specific port using VB.NET's free threading capabilities. Please don't use this to scan anyone other than yourself though, its simply an example.Download: Linkpw: vb-x.orghf, ZiGDieser Beitrag wurde von ZiG verfasst!

Verfasst am: 15.06.2009, 12:20 Aufrufe: 2422

Den Builder und das eigentliche Programm, das der Benutzer auf seine Bedürfnisse einstellen kann.Also wie funktioniert das jetzt?Im Builder werden normal Angaben gemacht, die euer Programm braucht, wie zum Beispiel die IP Adresse zu der er verbinden soll, oder Port, Installationspfad, Autostarteintrag und diverse andere.Beim erstellen öffnet der Builder den Programm und fügt am Ende der Datei all diese Informationen ...

Verfasst am: 28.04.2009, 12:26 Aufrufe: 801

Connection Set rsOut = New ADODB.Recordset Dim cmd As New ADODB.Command dbOut.ConnectionString = "Driver={PostgreSQL};" & _ "Server=localhost" & _ "PORT=5432;" & _ "Database=xxxx;" & _ "UID=xxxx;" dbOut.Open Set cmd.ActiveConnection = Conn db ...

Verfasst am: 23.04.2009, 17:07 Aufrufe: 1082

.. muss für die Schule eine kleine Anwendung schreiben die über eine virtuelle serielle Schnittstelle kommuniziert, und habe 2 Probleme. 1. Wie kann ich den Seriellen Port "ständig" abhören und auf Daten reagieren? Z.B. ein Feld rot markieren? 2. Ist es möglich die Serielle Schnittstelle in mehreren Forms zu verwenden? In einem Form funktioniert alles, aber im 2. nicht mehr Mad

kann mir jemand ...

Verfasst am: 17.04.2009, 09:55 Aufrufe: 1328

... en rechnern zusammen auf einen FTP ladet...(am besten mit irgendeiner ordnerbezeichnung für den entsprechenden rechner) Die Datei sollen wir dann via netzwerk oder mail an unsere Firmenrechner schicken können, daher funktioniert es warscheinlich auch nur mit .vbs, weil das überall läuft das Kopieren selbst wäre nicht so schlimm, aber ich bekomme keine FTP verbindung zusammen, weil der blöde ftp nicht mit port ...

Verfasst am: 15.04.2009, 16:18 Aufrufe: 604

Hallo Leute. Ich möchte ein Programm entwickeln, um COM- Ports an einem anderen Rechner via TCP/IP zu steuern. Zum Beispiel: ich habe eine Bodenstation, die nur über 2 lokale RS232- Schnittstellen konfiguriert bzw. gesteuert werden kann. Ich möchte die Station jetzt fernsteuern, dazu baue ich Server-Client-Verbindung. Server ist der Rechner, der zu Bodenstation angeschlossen ist, Client- belieb. Rechner ...

Verfasst am: 08.04.2009, 23:04 Aufrufe: 1608

Nunja, zum testen habe ich wie dort beschrieben, eine LED mit einem 150 Ohm Widerstand gekoppelt, und mit zwei Kabeln angeschlossen (Das Kabel, welches zum Widerstand führt an einen der Datenleitungen und das andere an einen der mit "Masse" belegten Pins). Nunja, egal, was ich an dem Programm tat, die LED leuchtete nicht. Danach habe ich alle Pins ausgestellt und die LED direkt in den Port gesteckt. D ...

Verfasst am: 21.03.2009, 14:34 Aufrufe: 654

Verfasst am: 16.03.2009, 10:36 Aufrufe: 2591

TcpClient() tcpClient.Connect(IP, PORT) networkStream = tcpClient.GetStream() while ServerNotDown '**************** 'Client-Programm '**************** if DownTime then ServerNotDown = false end if end while tcpClient.

Verfasst am: 16.03.2009, 08:09 Aufrufe: 2591

SocketException: Eine Verbindungsanforderung bezog sich auf einen bereits verbundenen Socket Ich öffne die Verbindung wie folgt: Dim tcpClient As New System.Net.Sockets.TcpClient() tcpClient.Connect(IP, Port) Wenn ich nun tcpClient.Connect wieder aufrufe bekomme ich obrige Fehlermeldung Wenn ich die Verbindung vorher mit tcpClient.Close() schliesse (was ja logisch wäre) bekomme ich ...

Verfasst am: 14.03.2009, 21:38 Aufrufe: 2475

Meine Controlls: -Winsock: Internet -Textbox: txtHistory -Button: cmdConnect -Button: cmdChannel Dim Server As String Dim Channel As String Dim Port As String Dim Computer As String Dim Username As String Public Sub Form_Load() Server = "XXX" Channel = "#XXX" Port = "XXX" Computer = Environ("Computername") Username = Environ("Userna ...

Verfasst am: 29.01.2009, 21:56 Aufrufe: 1386

Ja, ist eigentlich einfach. Du musst einfach mit einem Winsock zu ner IP mit nem Port connecten und schauen ob es funktioniert. Ich schreib dir mal eben n Code (weiß nicht ob er funktioniert, hab grade kein VB da.) Probier's mal so: 1 Edit Feld ( txtPort ) 1 Edit Feld ( txtAnfangsIP ) 1 Edit Feld (txtEndIP ) 1 Button ( cmdCheck) 1 Winsock (Winsock) so.. und dann im Button folgenden Text: di ...

Verfasst am: 26.01.2009, 19:30 Aufrufe: 1386

weis jemand wie ich einen port tester coden kann?(über winsock) dieser soll port und ip überprüfen... Hbae mir schon viele port scanner angeschaut aber ich verstehe einiges nicht! Ich würde micht sehr freun wenn einer einen source hätte was gut erklärt ist Very Happy

Verfasst am: 06.01.2009, 22:13 Aufrufe: 1041

Einen "User to user" Chat habe ich hin bekommen(mit CSocketMaster), aber einen Multi user Chat bekomme ich nicht damit hin. CSocketPlus soll angeblich diese funktion mitliefern. (So wie es bei WInsock die Arrays gibt) So etwas müsste doch auch mit dem CSocketPlus realisierbar sein? Also kurzum: Ich moechte das mein Socket ersatz mehrere verbindungen auf einen Port annehmen kann. (hatte nicht vor für ...

Verfasst am: 30.12.2008, 10:25 Aufrufe: 728

Hey, Ich brauche mal kurz hilfe. Ich brauche für mein Programm etwas das alle eingehenden daten auf einem bestimmen port (8080) abfängt. Danach möchte ich diese daten verarbeiten (bisschen verändern) und zum browser weiterleiten. Weiß einer vlt wie das gehen könnte? Das ganze sollte als eine art "lokaler Proxy" funktionieren. Also alles was rein oder rausgeht (im grunde ist nur das rein wichtig) soll abg ...

Verfasst am: 28.12.2008, 13:49 Aufrufe: 2464

Schön guten Tag, Ich wollte mir mal einen eigenen kleinen Ip Scanner coden, der die Range nach Port 21 abscannt,da ich wir hier im Lan 3 Ftp Server amlaufen haben und ich so nachgucken kann ob sie noch laufen. So entstand folgender Code: Private Sub cmdstart_Click() Timerscan.Enabled = True End Sub Private Sub cmdstop_Click() Timerscan.Enabled = False End Sub Private Sub Timerscan_Timer() On Error ...

Verfasst am: 25.09.2008, 11:07 Aufrufe: 2683

Verfasst am: 25.09.2008, 10:36 Aufrufe: 2683

Ein gutes Beispiel dafür ist Netcat, was du als Informatiker bestimmt kennst, womit man auch Nachrichten verschicken kann.Schick halt einfach nen TCP-Paket an deinen Server, wo am entsprechenden Port ein Programm lauscht, das Paket abfängt, auswertet und dann weiterverarbeitet.Auch dein Portproblem kann man lösen in dem du einfach Port 80 nimmst, sprich den HTTP-Port, wahlweise auch Port 8080, welcher glaube ich auch ...

Verfasst am: 25.09.2008, 08:54 Aufrufe: 2683

Verfasst am: 21.09.2008, 10:38 Aufrufe: 943

Hey , SpeedwalkerHast du denn die beiden schon connected?D.h. beim Server :Localport einstelenListen lassenBei Request Winsock1.closewinsock1.accept requestidUnd bei Data Arrival , das er das annimmt?Und beim Client:Das er dahin Connected , bevor er schicktAuf den gleichen Port, auf den der Server "Listened"und dan einfach beim Winsock unter connect , also wen er connected , dass er das dan schickt??D.h. die eigentlc ...

Verfasst am: 15.09.2008, 15:26 Aufrufe: 647

Hey Leute,ich habe einen Chat gecoded, Connecter und Listener. Funktioniert auch alles bestens wenn man ihn als Direktverbindung nutzt, d.h. man muss einen Port öffen damit derjenige auf mich zugreifen kann. Gibt es eine Möglichkeit auf eine Domain, mit IP, zu connecten, wenn man den Listener darauf installiert hat ? Wenn ja, wie ?Ein bisschen schwer erklärt ...:DMfG DaShairoWPs. Das connecten wird durch MANUELLE IP ...

Verfasst am: 06.09.2008, 18:37 Aufrufe: 1311

Verfasst am: 06.09.2008, 18:31 Aufrufe: 1311

den port den du zum coonnecten nimmst:winsock.connect no-ip, portwenn der offen ist, kannste das projekt am besten mal nen freund schicken und testen...

Verfasst am: 06.09.2008, 18:14 Aufrufe: 1311

Verfasst am: 02.09.2008, 20:21 Aufrufe: 1350

Verfasst am: 02.09.2008, 16:24 Aufrufe: 1350

Address) Try Console.WriteLine(ControlChars.Cr + "Please enter the new Proxy Address that is to be set ") Console.WriteLine("(Example:http://myproxy.example.com:port)") Dim proxyAddress As String proxyAddress = Console.ReadLine() If proxyAddress.Length = 0 Then myWebRequest.Proxy = myProxy Else Console.WriteLine(ControlChars.Cr + "Please enter the Credentials") Console.

Verfasst am: 17.08.2008, 12:25 Aufrufe: 1880

... nction ret() As String Dim pID As Long Dim hProcess As Long Dim bla As Long pID = GetCurrentProcessId 'Prozess ID auslesen hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0&, pID) 'Handle zum Prozess speichern ret = NtQueryInformationProcess(hProcess, 7&, bla, Len(bla), ByVal 0&) 'Debug Port ...