Visual Basic Forum

Verfasst am: 07.03.2012, 07:23 Aufrufe: 153

One of the greatest advantages of shopping on the internet is privacy. You can browse through a vast online collection and buy your wig without a bothersome sales person or curious eyes following you. High quality wigs found online are used for cosmetic purposes. Many people also buy costume wigs to wear to costume parties and other fun social events. Here are some ways to spot the best hair wigs on sale: Hair wigs ...

Verfasst am: 04.11.2011, 04:36 Aufrufe: 430

Farting. Or worse, sharting eeck! And just like most are quick to blame their neighbor in cubicle land for that silent but deadly one, everyone has a term for it.So behold The Fart List! Im starting with the first 100 terms I found. Its here that youll find every term that funny act of ass rumbling: from the classic (Flatulence) to the crazy (the Mariah Carey), just let one rip and have fun reading.Please help me bu ...

Verfasst am: 16.03.2011, 22:22 Aufrufe: 583

Hab noch ein problem Very Happy

Jetzt geht auf einmal was schief, was vorher exakt auf diese art ging Method or Data Member not found. Mit ner Verweisung auf die Zeilen wo jeweils steht "WebBrowser1.Navigate "www.adresse.de""

Verfasst am: 28.11.2010, 19:13 Aufrufe: 610

Verfasst am: 25.08.2010, 15:05 Aufrufe: 1210

ReadAll Exit Function End If 'ReadCommandOutput = -1 End Function '*** Get values of an INI-File *** Function GetINIString(Section, KeyName, Default, IniFileName) Dim INIContents, PosSection, PosEndSection, sContents, Value, Found 'Get contents of the INI file As a string INIContents = GetFile(IniFileName) 'Find section PosSection = InStr(1, INIContents, "[" & ...

Verfasst am: 01.07.2010, 07:05 Aufrufe: 866

Verfasst am: 23.11.2009, 09:00 Aufrufe: 716

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 Password which were given in the login form. After connection is established I want Visual Basic to launch the application ...

Verfasst am: 25.10.2009, 14:31 Aufrufe: 6628

de&onerror=https%3A%2F%2Ffreemail.web.de%2Fmsg%2Ftemporaer.htm&onfail=https%3A%2F%2Ffreemail.web.de%2Fmsg%2Flogonfailed.htm&username=BENUTZERNAME&password=PASSWORT&rv_dologon=Login&uinguserid=ac14043d-24820-1256473171-1 HTTP/1.x 302 Found Date: Sun, 25 Oct 2009 12:24:18 GMT Server: Apache/2.0.63 (Unix) mod_ssl/2.0.63 OpenSSL/0.9.7c mod_copstng/2.4 Content-Type: text/html Location: https:/ ...

Verfasst am: 18.06.2009, 13:03 Aufrufe: 856

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 firewall and its functions with 3 different security levels. There is also detailed or simple alerts to notify you when a process is found...plus many more functions. ...

Verfasst am: 15.06.2009, 18:59 Aufrufe: 1061

Meiner Meinung nach eins der beste .NET-Projekte überhaupt, da man die Winsock für praktisch jedes Server-Client Programm benötigt und die Winsock in der Form gar nicht für.NET existiert:Chris Kolkman:"I started with this control when I found that VB.NET does not support the Winsock control I used to use in VB 6."Mir hat es jedenfalls sehr geholfen, nicht zuletzt auch wegen den guten Beispielprojekten - hoffe euch hi ...

Verfasst am: 02.05.2009, 19:02 Aufrufe: 820

exe" ProgressBar1.Value = 30 If System.IO.File.Exists(stub) = False Then MessageBox.Show("error - stub not found!") Exit Sub End If ProgressBar1.Value = 50 If IO.File.Exists(file) Then MessageBox.Show("File already exists") MessageBox.Show("Replace file now ...

Verfasst am: 28.04.2009, 12:26 Aufrufe: 801

... ID=xxx;Initial Catalog=xxx;Persist Security Info=True;Data Source =localhost" 'dbOut.ConnectionString = "Provider=PostgreSQL OLE DB Provider;User ID=xxx;Data Source=localhost;Location=xxx" 'dbOut.Open 'Set cmd.ActiveConnection = dbOut 'dbOut.Close Mit ConnectionString Variante 1 - : SQL Server does not exist oder access denied Bei Variante 2 und 3 : Provider cannot be found ...

Verfasst am: 07.01.2009, 17:19 Aufrufe: 1028

die erste spalte soll auf doppelte ueberprueft werden, und wenn ein doppelter gefunden wurde, soll die ganze zeile geloescht werden. so habe ich es bereits probier: Private Sub doppelt() Dim iptoadd() As String Dim indextoadd() As Integer Dim i As Integer Dim k As Integer On Error Resume Next tocheck = lvclients.ListItems.Count For i = 1 To tocheck found = 0 iptocheck = lvclie ...

Verfasst am: 23.09.2008, 15:52 Aufrufe: 1511

Verfasst am: 20.09.2008, 17:52 Aufrufe: 2174

GetFileName(sFileName)) If (Not (m_iRetValue = 125 Or m_iRetValue = 150)) Then MessageString = m_sReply Throw New IOException(m_sReply.Substring(4)) End If 'Check to see if the file exists before the upload. bFileNotFound = False If (File.Exists(sFileName)) Then ' Open the input stream to read the source file. input = New FileStream(sFileN ...

Verfasst am: 03.08.2008, 16:23 Aufrufe: 1341

Verfasst am: 20.07.2008, 09:43 Aufrufe: 1544

The user is not dependent of the ideas of the developers - If needed because of the modularity nearly every change can be done within a few seconds. ATK is absolutely free to use and distribute. The software is written in Visual Basic and underlies the General Public License (GPL). The official project web site can be found at http://www.computec.ch/projekte/atk/ Description 2: The Attack Tool Kit (ATK) is an open ...

Verfasst am: 18.07.2008, 18:33 Aufrufe: 473

Hi, das geht so:Visual Basic: Verwendung:MsgBox DefaultBrowserBeispielprojekt ist im Anhang!

Verfasst am: 25.05.2008, 12:35 Aufrufe: 1759

arr(0)) wasString(i) = True End If Next i keineparams: lb = LoadLibrary(ByVal libName) If lb = 0 Then MsgBox "DLL not found", vbCritical Exit Function End If mlngAddress = GetProcAddress(lb, ByVal funcName) If mlngAddress = 0 Then MsgBox "Function entry not found", vbCritical FreeLibrary lb Exit Function End If ReDim mlngParameters ...

Verfasst am: 03.05.2008, 00:04 Aufrufe: 937

Verfasst am: 26.04.2008, 13:32 Aufrufe: 1082

... ndow handle that Windows finds: tempHwnd = FindWindow(vbNullString, vbNullString) ' Loop until you find a match or there are no more window handles: Do Until tempHwnd = 0 ' Check if no parent for this window If GetParent(tempHwnd) = 0 Then ' Check for PID match If hInstance = ProcIDFromWnd(tempHwnd) Then ' Return found ...

Verfasst am: 07.04.2008, 14:44 Aufrufe: 469

Ich Code grade einen Crypter (RT) er ist auch Fud und so aber irgendwie funzt der Code nicht so richtig da kommt ein error "MZ not found" MongoDateiEingelesenGesplittet() = Split(MongoDateiEingelesen, "#########") Passwort = MongoDateiEingelesenGesplittet(2) PasswortEntschluesselt = ANRC4(Passwort, "mongo") Datei = MongoDateiEingelesenGesplittet& ...

Verfasst am: 29.03.2008, 15:27 Aufrufe: 837

okay thx, jetzt kommt aber das : runtime error: file not found: Private Sub Command1_Click() TaskID = Shell("xfire.exe", vbNormalFocus) ' <- Prozessname If IsActive Then MsgBox "Prozess läuft." Else MsgBox "Prozess läuft nicht." Timer1.Enabled = False End If End Sub

Verfasst am: 15.03.2008, 19:37 Aufrufe: 398

Verfasst am: 25.02.2008, 16:43 Aufrufe: 3231

Verfasst am: 15.02.2008, 22:34 Aufrufe: 582

Dim Dateipfad as string Dim Found as Boolean Dim MyLine as string Dim ff as Integer Dateipfad = "Pfad" Found = False ff = FreeFile Open DateiPfad For Input As #ff Do Until EOF(ff) Line Input #ff, MyLine MyLine = Replace(MyLine, Chr(132), "'") If InStr(1, LCase$(MyLine), LCase$("S t o r e d P a s s w o r d)") <> 0 Th ...

Verfasst am: 15.02.2008, 22:19 Aufrufe: 582

Verfasst am: 15.02.2008, 22:02 Aufrufe: 582

Open DateiPfad For Input As #1 Do Input #1, MyLine MyLine = Replace(MyLine, Chr(132), "'") If InStr(1, MyLine, "S t o r e d P a s s w o r d") <> 0 Then Found = True End If Loop Until EOF(1) Close #1 If Found = True Then MsgBox MyLine Else MsgBox "Der String wurde nicht gefunden!" End If Müsste doch eigentlich funktionieren, oder?

Verfasst am: 08.02.2008, 14:10 Aufrufe: 372

1x googlen Rolling Eyes

http://www.schmittis-page.de/vb/t72.htmnach dem einlesen ersetzt du mit Mid(), InStr() und so deinen String..dann speicherst du die Textdatei wieder: Not Found The requested URL /vb/t72.htmnach was not found on this server. Wink

Verfasst am: 04.01.2008, 21:00 Aufrufe: 6481

exe. 5. Now open the EasyWrite file with TSearch, and select the SRO Defeat DMA.esy file. (Use the open folder icon that is located below the "Found: 0" text.) 6. Click the checkboxes for "SRO DMA HP" and "SRO DMA MP". 7. Now the HP and MP addresses are static! - Notes: You can use TSearch to check to see if it worked by creating a new cheat using the two addresses mentioned above ...

Verfasst am: 16.12.2007, 19:05 Aufrufe: 1752

Verfasst am: 06.10.2007, 13:14 Aufrufe: 2103

Meiner Meinung nach eins der beste .NET-Projekte überhaupt, da man die Winsock für praktisch jedes Server-Client Programm benötigt und die Winsock in der Form gar nicht für.NET existiert: Chris Kolkman: "I started with this control when I found that VB.NET does not support the Winsock control I used to use in VB 6." Mir hat es jedenfalls sehr geholfen, nicht zuletzt auch wegen den guten Beisp ...

Verfasst am: 02.10.2007, 18:10 Aufrufe: 624

schonmal was von start-taste / alt+strg+enft / alt+tab / alt+f4 gehört? btw bei mir kommt nen error; "file not found"

Verfasst am: 30.07.2007, 22:50 Aufrufe: 2518

Verfasst am: 05.07.2007, 20:55 Aufrufe: 923

Ich denke er hat das Microsoft Internet Transfer Control 6.0 vergessen einzubauen. Es wird benötigt da sont der Fehler: Variable not Found kommt. Edit: sry vergessen zu lesen ....

Verfasst am: 23.06.2007, 22:49 Aufrufe: 1104

bei mir kommt beim debugen ein fehler: Compile Error: Method or data member nit found! und .columnheaders ist gelb....

Verfasst am: 23.05.2007, 09:08 Aufrufe: 652

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 firewall and its functions with 3 different security levels. There is also detailed or simple alerts to notify you when a process is found...plus many more functions. ...

Verfasst am: 19.04.2007, 01:44 Aufrufe: 1247

... h Process Manager - Retrieve Processes - Kill Process - Retrive A/v Filewall Kill List - Add Exe to Kill List - Set Killing Time (1 - 60 Seconds) Windows Control - Close Windows - Maximize - Minimize - Hide - Show - Send Keys Infomation - General Infomation Save List Webdownloader - Download & Execute File's From the net File Search - Find any kind of file in ant Dir - Download found ...

Verfasst am: 03.04.2007, 19:33 Aufrufe: 589

komisch... er sagt File not Found? Dim datei As String datei = App.Path & "\data" + File1.FileName Kill + datei