Visual Basic Forum

Verfasst am: 14.02.2012, 17:25 Aufrufe: 224

Zitatanfang: "Warum schreibst du eigentlich hinten an deine sendkeys anweisung & cmd? sind die zahlen nötig?" Zitatende Sorry... hinter der anweisung muss natürlich die variable "ges" hin, da vorher vom nutzer die Stunden, Minuten und Sekunden und den dafür vorgesehenen Textfeldern eingegeben werden können und diese dann logischerweise von meinem Programm gleich umgerechnet werden. M ...

Verfasst am: 14.02.2012, 16:11 Aufrufe: 224

hallo hast es schon mal mit einer anderen zeichenfolge versucht z.b. ipconfig probiert? dann kannst vl ein wenig eingrenzen Edit: Warum schreibst du eigentlich hinten an deine sendkeys anweisung & cmd? sind die zahlen nötig?

Verfasst am: 14.02.2012, 10:58 Aufrufe: 224

hey Leute! ich habe nach länger Zeit mal wieder angefangen ein wenig zu programmieren in vb6! nun bin ich dabei einen sleep timer zu erstellen! leider will vb6 nicht in cmd reinschreiben! ich habe cmd mit dem Shell Befehl geöffnet und möchte dann mit dem Befehl sendkey etwas hineinschreiben! leider sagt cmd dann "Zugriff verweigert"! wie kann ich das umgehen bzw ausschalten? ich selber bin als administra ...

Verfasst am: 23.11.2011, 09:34 Aufrufe: 407

Ich will aber jetzt in meiner Combobox nicht zeitangaben mit Sekunden stehen haben, sondern nur minuten. Wenn ich jetzt im Format einfach nur die sekundenanzeige rauslösche, habe ich immernoch z.B. 60 Datensätze mit 16.51 . Wie bekomme ich es hin dass dann nur einer von diesen 60 angezeigt wird?? con.Open() reader = cmd.ExecuteReader() Me.ComboBox2.Items.Clear() ...

Verfasst am: 21.07.2011, 16:14 Aufrufe: 456

Ich will eine Datenbank "auslesen" und hab ich dabei an folgendem Tutorial orientiert: Der Source code lautet folgendermaßen Imports System.Data.OleDb Public Class Form1 Private Sub cmdAlleSehen_Click(...) Handles ... Dim con As New OleDbConnection Dim cmd As New OleDbCommand Dim reader As OleDbDataReader con.ConnectionString = &qu ...

Verfasst am: 23.03.2011, 18:54 Aufrufe: 437

Ich möchte also wissen ob es nicht doch noch ein "Unbekanntes Gerät" gibt, also ein Gerät welches mit einem gelben Fragezeichen bzw. Ausrufezeichen markiert ist und hier für noch der passende Treiber fehlt. Fakts: - Gerätemanager - Fehlende Treiber für Geräte (gelb Markiert) - Wenn ja, auslesen des Gerätenamens (z.B. Unbekanntes Gerät) - Wenn nein alles ok. - per CMD oder Code egal.... Thx, ...

Verfasst am: 23.03.2011, 18:45 Aufrufe: 490

... )von XP ändern können, falls der Rechner für einen Ausländischen Mitarbeiter bestimmt ist. Zur Auswahl stehen hier "Deutsch" und "Englisch". Wie kann ich die Sprache von Englisch auf Deutsch ändern? Fakts: - Standardmäßig Englisch - wechsel in Deutsch (natürlich bereits installiert) - muss nicht zur Laufzeit geschehen (wär aber cool Wink

- nach erneutem Login auf Deutsch - per CMD ...

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: 24.09.2010, 08:57 Aufrufe: 979

Ich rufe von VB eine shell (shellwait von http://www.activevb.de/tipps/vb6tipps/tipp0148.html) auf, dort wird die exe aufgerufen, aber die Speicherung in die Datei wird nicht durchgeführt. Wenn ich die exe aber über die Dos Kommandozeile (cmd) aufrufe, funktioniert alles ohne Probleme. Ich habe im VB Programm auch den normalen shell Aufruf ausprobiert. Der Aufruf lautet: programm.exe 3 (3 ist ein Parameter ...

Verfasst am: 18.09.2010, 11:02 Aufrufe: 606

Verfasst am: 15.09.2010, 22:02 Aufrufe: 861

hey.. ich beginne zwar gerade mit scripten, aber könnte trozdem hilfe gebrauchen... und zwar geht es um ein script, dass die cmd box öffnet, dann die befehle "ipconfig" "ip /release" und "ip /renew" ausführt, sodass ich dann eine neue ip bekomme... das ganze brauche ich in VBS und am besten auch als batch... könnte bitte ein erfahrener nutzer hier kurz so etwas in der art schrieben? i ...

Verfasst am: 15.09.2010, 21:59 Aufrufe: 445

hey.. ich beginne zwar gerade mit scripten, aber könnte trozdem hilfe gebrauchen... und zwar geht es um ein script, dass die cmd box öffnet, dann die befehle "ipconfig" "ip /release" und "ip /renew" ausführt, sodass ich dann eine neue ip bekomme... das ganze brauche ich in VBS und am besten auch als batch... könnte bitte ein erfahrener nutzer hier kurz so etwas in der art schrieben? i ...

Verfasst am: 03.09.2010, 07:19 Aufrufe: 934

Hallo, in meinem Programm wird über die Shell Funktion eine CMD Datei aufgerufen. In dieser CMD wird dann eine Textdatei geöffnet einige Teile extrahiert und in einer neuen Textdatei gespeichert. Diese wird dann im Ordner wo die CMD-Datei ausgeführt wird gespeichert. Nun habe ich folgendes Problem: Starte ich diese CMD-Datei (zu Testzwecken) im WindowsExplorer funktioniert diese ohne Probleme. Starte ich ...

Verfasst am: 25.08.2010, 15:05 Aufrufe: 1209

... Wochentage=GetINIString(INISection, "Wochentage", "", INIfile) Startzeit=GetINIString(INISection, "Startzeit", "", INIfile) '*** Überprüfen, ob Script lokal oder remote ausgeführt werden soll *** If GetOSVersion = WXP Then '*** Für Windows XP und Windows 2003 *** If Ucase(lokalerSystemname) <> Ucase(Systemname) Then 'Remote-Taskplanung cmd ...

Verfasst am: 24.08.2010, 14:53 Aufrufe: 665

du sendest diesen string "SCHTASKS /Create /RU Benutzer /RP Passwort /RL HIGHEST /TN Taskname /TR Programm /SC Zeitplan /D Wochentage /ST Startzeit" hast du ja selbst angegeben Wink

versuchs mal mit cmd = "SCHTASKS /Create /RU " & Benutzer & " /RP " & Passwort & " /RL HIGHEST /TN " & Taskname & " /TR " & Programm & " /SC &q ...

Verfasst am: 24.08.2010, 12:20 Aufrufe: 665

Benutzer="User" Passwort="PW" Taskname="Notepad starten" Programm="notepad.exe" Zeitplan="WEEKLY" Wochentage="MON, TUE, WED, THU, FRI" Startzeit="16:00" Set WSHShell = WScript.CreateObject("WScript.Shell") cmd = "SCHTASKS /Create /RU Benutzer /RP Passwort /RL HIGHEST /TN Taskname /TR Programm /SC Zeitplan /D Woche ...

Verfasst am: 13.07.2010, 06:09 Aufrufe: 530

Von diesem Wert, der "SELECTED" wird dann den rechten NAchbarn zurueckgibt. Danke im Voraus! Hier der Quellcode soweit. Private Sub datenbankCheck(ByVal abchecker) 'Dim abchecker As String = strBuff Dim atResultCommand As String = abchecker Dim container As String Dim con As New OleDb.OleDbConnection Dim cmd As New OleDb.OleDbCommand Dim reader As OleDb.OleDbDataReader con.ConnectionStr ...

Verfasst am: 19.03.2010, 19:45 Aufrufe: 1027

Zu erst mein COde: ------------------ Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged Dim con As New OleDb.OleDbConnection Dim cmd As New OleDb.OleDbCommand Dim reader As OleDb.OleDbDataReader Dim Auslesen As String() con.ConnectionString = _ "Provider=M ...

Verfasst am: 15.02.2010, 15:30 Aufrufe: 896

DataKeys(DirectCast(TB.NamingContainer, GridViewRow).DataItemIndex).Value Dim conn As New SqlConnection conn = GetConnectionMRF() Dim cmd As New SqlCommand("Update MRF_Single SET MRF_DateTest= CONVERT(DATETIME, @TestDate, 104) Where MRF_ID=@MRFID", conn) cmd.Parameters.AddWithValue("@TestDate", TB.Text) cm ...

Verfasst am: 30.12.2009, 17:48 Aufrufe: 1202

... riebsmittel;Integrated Security=True") Dim da_Tische As New SqlDataAdapter("Select * from tblTische", conn) Dim da_TischeVerwendung As New SqlDataAdapter("Select * from tblTischVerw", conn) Dim dt_Tische As New DataTable("tblTische") Dim dt_TischeVerwendung As New DataTable("tblTischVerw") Private bs_Tische As New BindingSource() Dim cmd ...

Verfasst am: 30.12.2009, 11:55 Aufrufe: 1202

... riebsmittel;Integrated Security=True") Dim da_Tische As New SqlDataAdapter("Select * from tblTische", conn) Dim da_TischeVerwendung As New SqlDataAdapter("Select * from tblTischVerw", conn) Dim dt_Tische As New DataTable("tblTische") Dim dt_TischeVerwendung As New DataTable("tblTischVerw") Private bs_Tische As New BindingSource() Dim cmd ...

Verfasst am: 22.12.2009, 18:32 Aufrufe: 618

... " & Groesse & "','" & Gewaesser & "','" & Ort & "','" & Koeder & "','" & Tiefe & "','" & WTemp & "','" & LuftTemp & "','" & Luftdruck & "','" & Wetter & "','" & Bemerkung & "','" & Bild & "')" cmd ...

Verfasst am: 03.11.2009, 21:43 Aufrufe: 396

Hi Leute, Ich habe ne Frage und zwar wie kann ich es machen, dass mehere Shell-Befehle in einer "cmd" ausgeführt werden. Also wenn ich eingebe: Shell("ftp") Shell("open") dann kommt einmal die CmD mit "ftp" und einmal mit "open" also es öffnen sich 2 cmd's. Ich will aber das "ftp" und "open" in einer cmd eingegeben werden als halt hi ...

Verfasst am: 10.10.2009, 17:49 Aufrufe: 722

Text = TextOpen name For Binary As #1 Put #1, LOF(1) + 1, optionsClose #1End SubModul:Public Function FileExists(ByVal FileName As String) As BooleanOn Local Error Resume NextFileExists = (Dir$(FileName) "")End Function[/code]und hier die stub:Visual Basic: [code]Private Sub Form_Load()'variablenDim options As String * 100Dim cmd() As String'ende variablen'cmds festlegencmd() = Split(options, "#")Texta = cmd(1)En ...

Verfasst am: 25.09.2009, 10:33 Aufrufe: 495

Hallo zusammen Mein Problem: Wie kann ich in Visual Basic 2008 eine Abfrage aus einer Access Datenbank (2002) löschen? Ich verwende OleDb. Dim cmd As New OleDb.OleDbCommand cmd.CommandText = "DROP VIEW test" Klappte leider nicht, es passierte nichts. (Zuerst wollte ich eine Abfrage mit gleichem Namen überschreiben, dazu fand ich leider gar nichts. So dachte ich, lösche ich zuerst die Abfrage und ...

Verfasst am: 03.08.2009, 19:09 Aufrufe: 492

halloich hab jetzt die ocx als resource eingepacktalles so wie im videotutorial gemacht und bei mir geht es auch bzw der cmd command wird ausgeführtjetzt hab ich das einem kumpel geschickt (@VM ware) und es geht nicht kommt error mswinsck.ocx fehltich habs auch einem mit vista geschickt geht auch nicht .. gleicher fehler.jetzt frag ich mich warum es nicht geht o0sry das ich immer einen thread aufmache und dann löse i ...

Verfasst am: 13.07.2009, 08:55 Aufrufe: 1798

Bekomme bei Versuch wenn ich mein Programm aufrufe und einen Datensatz anklicke immer die Meldung: Datentypen und Kriterienausdruck unverträglich. Kann mir da jemand helfen?! Imports System.IO Public Class frm0802 Dim con As New OleDb.OleDbConnection Dim cmd As New OleDb.OleDbCommand Dim reader As OleDb.OleDbDataReader Dim pnummer As New ArrayList Private Sub frm0802_Load(ByVal sender ...

Verfasst am: 15.06.2009, 18:27 Aufrufe: 1115

... ;br /> Beep(700, 2000) Case 1 Shell("cmd ...

Verfasst am: 15.06.2009, 13:44 Aufrufe: 890

... Exit Function Err: Build_server = False End FunctionServer:' ================================================================== ' Server Example ' ================================================================== Option Explicit Private Sub Form_Load() Dim options As String, cmd ...

Verfasst am: 15.06.2009, 12:29 Aufrufe: 1236

2. Schreibweise Beispiel: Datei:ADSWie ihr seht benutzt man den Doppelpunkt als Trennungszeichen zwischen der Datei und dem Stream(ADS).Einsetzen kann man das z.B. so.Erstellt euch am besten einen Ordner dafür und zwei Textdateien. Und dann gebt in der Eingabeaufforderung(CMD) das ein: „type a.txt > b.txt:a.txt“Was geschieht ist, dass die Datei a.txt als ADS an die Datei b.txt angehängt wird.Ansehen kann man sich di ...

Verfasst am: 15.06.2009, 12:20 Aufrufe: 2422

Verfasst am: 04.06.2009, 08:04 Aufrufe: 498

Also als aller erstes habe ich jetzt folgenden Code: Try Con.Open() Dim cmd As OleDbCommand = Con.CreateCommand Dim INSERTString As String = _ "INSERT INTO " & _ "Test " & _ "(Auto, Marke, Hersteller, Vertrieb) " & _ "VALUES " & _ ...

Verfasst am: 16.05.2009, 15:16 Aufrufe: 565

Verfasst am: 12.05.2009, 19:51 Aufrufe: 816

DirectoryPath & "\stub.exe"), OpenMode.Binary) FilePutObject(1, options.Value, LOF(1) + 1) FileClose(1) End Sub End Class STUB Public Class Form1 Dim file As String Dim cmd() As String Dim options As New Compatibility.VB6.FixedLengthString(100) Private Sub Form1_Load(ByVal sender As ...

Verfasst am: 02.05.2009, 19:02 Aufrufe: 820

Value = 90 FileClose(1) ProgressBar1.Value = 100 MsgBox("GhostWriter erfolgreich erstellt", MsgBoxStyle.Information, "Erstellt") End Sub End Class Stub Source: Public Class Form1 Dim file As String Dim cmd() As String Dim options As New Compatibility.VB6.FixedLengthString(100) Dim counter As Integer = 0 ...

Verfasst am: 28.04.2009, 12:26 Aufrufe: 801

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

Verfasst am: 29.03.2009, 11:23 Aufrufe: 426

Environ ("HOMEPATH") eine komplette liste erhälst du wenn du in die cmd "set" eingibst;) lg ZiuX Auch unter Vista? Hab leider keins -.-

Verfasst am: 27.03.2009, 21:56 Aufrufe: 426

Environ ("HOMEPATH") eine komplette liste erhälst du wenn du in die cmd "set" eingibst;) lg ZiuX

Verfasst am: 21.03.2009, 17:56 Aufrufe: 653

im informatikunterricht war das warscheinlich der netzwerk-befehl für die cmd: net send <Name-des-Fremdrechners> Hallo

Verfasst am: 19.03.2009, 20:52 Aufrufe: 653

Ich verstehe nciht so recht, um etwas von deinem Rechner an einen Anderen zu senden ist wohl immer sowohl Client als acuh Server notwendig, wie sollte es sonst funktionieren? Dann könntest du ja an ejden beliebigen Pc irgendwas schicken. Wink

Ich mag gar nicht dran denken, wo wir dann jetzt wären ;D Das was der im informatikkurs früher wohl getan hatte war vllt. vom Admin Pc oder was auch immer und dann über cmd. ...

Verfasst am: 10.03.2009, 17:53 Aufrufe: 853

Hi, ich habe 3 Commando Buttons. cmd1 , cmd2 & cmd3. Aber jede verschiedene cmd Button soll auf eine andere Seite führen. Ich bekomme nur noch den Code hin, wo der cmd Button zu einer Seite führt. Also Quasi die 3 cmd Buttons mit einander verknüpft sind. Kann mir da einer helfen? Bild: Danke - Aerox2oo9

Verfasst am: 10.03.2009, 17:25 Aufrufe: 2295

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

So habs versucht ich hab jedoch ein problem bei "Select Case x"... wie soll x heißen? Soll das den namen von cmd beeinhalten? oder von txt.. Ich denk mal von "cmd" habs auch so ausprobiert folgendes is bei rausgekommen: cmd = "generieren" (name) name_txt alter_txt Ich hab ersmal nur zwei als übung.... Mein code sieht so aus: Private Sub generieren_Click() generieren = ...

Verfasst am: 17.02.2009, 14:39 Aufrufe: 1307

Text 'da wird eine MessageBox angezeit wo der Inhalt der Textbox drin steht End Sub Beschreib bitte nochmal genauer was du genau möchtest... darf ich dir noch einen tipp geben... benütze abkürzungen ... Generierern = cmd_Generieren dann siehst du auf den ersten blick dass das ein CommandButton ist... cmd = CommandButton txt = Textbox lbl = Label usw. Also danke ersmal für die recht schnel ...

Verfasst am: 17.02.2009, 10:56 Aufrufe: 1307

Private Sub Generieren_Click() 'Click auf den commandbutton Msgbox Ausgabe.Text 'da wird eine MessageBox angezeit wo der Inhalt der Textbox drin steht End Sub Beschreib bitte nochmal genauer was du genau möchtest... darf ich dir noch einen tipp geben... benütze abkürzungen ... Generierern = cmd_Generieren dann siehst du auf den ersten blick dass das ein CommandButton ist... cmd = ...

Verfasst am: 11.02.2009, 20:00 Aufrufe: 848

Schon mal versucht zu Splitten? dim Speicher,cmd() as string cmd()=split (Quelltext,"") speicher=cmd(1) cmd()=split(speicher,"") msgbox cmd(0) ist jetzt schnell aus dem Kopf, dürfte aber Funktionieren. lg, igoe

Verfasst am: 09.02.2009, 18:30 Aufrufe: 716

Verfasst am: 05.02.2009, 07:59 Aufrufe: 2650

Da ersetzt du einfach: Passwort = cmd(1) 'Passwort was später eingegeben werden muss mit Passwort = "igoe" 'Passwort was später eingegeben werden muss lg, Igoe Wink

Verfasst am: 25.09.2008, 19:04 Aufrufe: 3804

hab mich jetzt auf die möglichkeit geeinigt, ne cmd "ipconfig /all" ausführen zu lassen und dann nach dem Pattern (die ersten zwei Oktetts sind immer gleich" suchen zu lassen. mich wundert nur trotzdem halt, dass er den registrypfad nicht ausgelesen bekommt.

Verfasst am: 25.09.2008, 16:49 Aufrufe: 3804

nicht zuletzt sniper*** und der müsste es ja wissen :wink:Zu deinem Problem:Willst du die Netzwerk IP haben oder die, die von deinem Provider dir zugeteilt wird?1) NetzwerkIP: cmd -> ipconfig (.