Visual Basic Forum

Verfasst am: 18.11.2010, 17:19 Aufrufe: 926

Hier der Code: C++: void WriteString(char* SPSinput) { char* WerteString; //Der zerlegte Teilstring int Werte[6]; //Array für die Werte aus dem String USES_CONVERSION; WerteString=strtok(SPSinput,"$"); //Abspalten des ersten Teilstrings Werte[0]=atoi(WerteString); //Speichern des abgespaltenen String im Arrayfeld [0] f ...

Verfasst am: 21.09.2010, 10:01 Aufrufe: 926

Leider bekomme ich die Fehlermeldung, dass eine Konvertierung von 'short(*)Der C++-Code void WriteString(char* SPSinput) { char* WerteString[6]; short Werte[6]; for (int i=0;i<6;i++) { WerteString[i]=strchr(SPSinput,'$'); Werte[i]=atoi(WerteString[i]); } try { CoInitialize(NULL); ...

Verfasst am: 17.09.2010, 17:51 Aufrufe: 840

' </remarks> Public Shared Function GetMagicPacket(ByVal macAddress As String) As Byte() Dim Packet As Byte() = New Byte(5 + 16 * MAC_ADDR_BYTES) {} '101 => 102 elements Dim strNumbers As String() = macAddress.Split(New Char() {":", ",", ";", "-"}) Dim m ...

Verfasst am: 02.07.2010, 13:29 Aufrufe: 939

... gler, habe dazu ebenfalls eine Methode aus dem MSDN verwendet, ReceiveSerialData(), und sie nach meinen Anforderungen umfunktioniert, wobei das Telegramm des Reglers zeichenweise gelesen werden soll. Auch die Übertragungsdaten für die serielle Verbindung stimmen. Wenn nach dem Senden eines Telegramms (was auch geschehen muss damit der Regler antwortet) die Empfangsmethode aufgerufen wird, hakt es an der ReadChar ...

Verfasst am: 13.04.2010, 14:59 Aufrufe: 1181

Leider komm ich grade nicht weiter. Als Info ihn Delphi bin ich noch Blutiger Anfänger ; ) var zeichen : integer; ergebnisbin : string; z: char; begin edit1.text := z; zeichen :=ord(z); ShowMessage(IntToStr(Ord(z))); while trunc(zeichen) <> 0 do begin ergebnisbin := IntToSTr(zeichen mod 2) + ergebnisbin; zeichen := trunc& ...

Verfasst am: 11.11.2009, 15:06 Aufrufe: 1425

Die nächste Frage ist, wie sieht Deine Tabelle genau aus ? Es hat den Anschein, daß es nur zwei Felder gibt Feld SalesOrg Datentyp Char Länge 9 Feld ?? Datentyp Char Länge 4 Wie stellst Du sicher, daß es keine Duplikate gibt, also Zuordnungen doppelt eingetragen werden ? Alernativ könnte man die Tabelle ja auch so aufbauen, daß man die Felder hätte: Feld SalesOrg Datentyp Char Länge 9 F ...

Verfasst am: 20.08.2009, 10:59 Aufrufe: 521

Habe es nochmal verändert: Dim message As String Dim pointer As String Dim stringarray(1) As Char Dim i As UShort ...... ReDim stringarray(Len(message)) For i = 0 To Len(message) stringarray(i) = Mid(message, i + 1, 1) Next pointer = System.Runtime.InteropServices.Marshal.UnsafeAddrOfPinnedArrayElement(stringarray, 1)

Verfasst am: 02.06.2009, 13:56 Aufrufe: 2917

wenn ich "counter" bzw "char" scheibe zeigt er mir es als fehler an -.-"

Verfasst am: 02.05.2009, 19:02 Aufrufe: 820

Interval = Speed Timer1.Start() End Sub Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim strToRead As String = Text Dim newChar() As Char = strToRead.ToCharArray() If counter = Len(strToRead) Then Timer1.Stop() Else RichTextBox1.Text + ...

Verfasst am: 05.04.2009, 15:08 Aufrufe: 2141

h> void linie_prg_ueberschrift(void); void linie_menue_punkt_2(void); #define ANZ_LZ 49 // Anzahl der Lottozahlen #define ANZ_TIPPS 6 // Anzahl der abzugebenen Tipps main() { int zufallz,r,x,y,z; char spielfeld[5][11]; int *ptrx,*ptry; int menue;//Auswahlmenue char e;// Abgesicherte eingabe printf("Was Wollen Sie spielen?? \n\n"); // Ausgabe von Menü printf ...

Verfasst am: 02.02.2009, 18:48 Aufrufe: 800

Hallo, du benutzt die Methode String.Split falsch Wink

String.Split-Methode (CharPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Helper() As String Dim Content As String Dim Result As String Content = "12345" Helper = Split(Content, "234") Result = Helper ...

Verfasst am: 29.01.2009, 22:04 Aufrufe: 2441

LRESULT CALLBACK WndProc(HWND, UINT, WPARAM, LPARAM); //Zum Epfangen der Eingaben des Benutzers const char szAppName[] = "Ein eigenes Fenster"; //Fensterklassen-Name int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, //Sub Beginn PSTR szCmdLine, int iCmdShow) { HWND hWnd; //hwnd deklarieren MSG msg; ...

Verfasst am: 17.09.2008, 19:00 Aufrufe: 391

Verfasst am: 29.08.2008, 15:36 Aufrufe: 1144

ich meinte es so mit dem produkt key machineguide und io es zu entschlüsseln #define WIN32_LEAN_AND_MEAN #include #include #include #include "aesphm.h" using namespace CryptoPP; // WARNING: EXTREMELY SENSITIVE INFORMATION! #define ACCOUNT_PHRASE_SIZE (XXX + 8 + 20) static byte accountphrase so nur halt für vb6

Verfasst am: 15.07.2008, 16:49 Aufrufe: 762

Default Dim enUTF8 As Encoding = Encoding.UTF8 Dim defBytes As Byte() = enDefault.GetBytes(str.ReadToEnd) Dim utfBytes As Byte() = Encoding.Convert(enDefault, enUTF8, defBytes) Dim utfChars(enUTF8.GetCharCount(utfBytes, 0, utfBytes.Length)) As Char enUTF8.GetChars(utfBytes, 0, utfBytes.Length, utfChars, 0) Dim utfString As New String(utfChars) Return utfString E ...

Verfasst am: 09.07.2008, 18:07 Aufrufe: 1142

RCR ist ein simpler Verschlüsselungsalgorythmus, der nur das deutsche Alphabet, die Zahlen 0 bis 9 und das Leerzeichen verschlüsselt, alle anderen Zeichen werden ignoriert.Info:Sourcecode Passwort: sollniss.1x.toDownload

Verfasst am: 06.07.2008, 13:41 Aufrufe: 452

Verfasst am: 27.06.2008, 10:41 Aufrufe: 789

Verfasst am: 14.06.2008, 23:28 Aufrufe: 1315

Der Fehler liegt daran, dass du versucht die Funktion falsch zu verwenden. Mit ihr kann man keinen Trennstring verwenden, nur ein Trennzeichen: ParamArray sperator() as Char

Verfasst am: 03.06.2008, 21:20 Aufrufe: 487

Verfasst am: 25.05.2008, 22:07 Aufrufe: 594

Verfasst am: 25.05.2008, 22:01 Aufrufe: 673

Ich hab folgende Funktion gefunden, die bei mir aber nicht funktioniert:Visual Basic: Ich denke mal das liegt an 20052008 oder?Kann mir das mal jemand zu 2008 "übersetzen"?

Verfasst am: 22.05.2008, 21:16 Aufrufe: 1340

Der Typ ist dieser:Visual Basic: // Edit //Falls du Probleme mit den Datentypen hast, nimm Long statt DWORD und HANDLE und String statt Char. // Edit //Ich übersetze die Funktion eben für dich. Smile

Visual Basic: [code]Function GetModuleBaseAddress(ByVal iProcId As Long, ByVal DLLName As String) As Long Dim hSnap As Long Dim xModule As MODULEENTRY32 hSnap = CreateToolhelp32Snapshot(TH32CS_SNAPMODUL ...

Verfasst am: 21.05.2008, 23:51 Aufrufe: 1340

Verfasst am: 07.05.2008, 15:11 Aufrufe: 6678

Contains("b") Ausgabe: true Methode:Replace() Ersetzt alle angegebenen Zeichen durch die neuen Zeichen Syntax: replace(oldChar as Char, newChar as Char) as String oldChar: Das zu ersetztende Zeichen newChar: Das einzusetztende Zeichen Gibt den neuen String zurück Beispiel: Dim sText as String = "Guten Tag" Dim bStat as String = sText.

Verfasst am: 23.03.2008, 12:53 Aufrufe: 956

Also per char kann man ascii zeichen umwandeln. Die Ascii zeichen von 65 bis 90 sind glaub ich alle großbuchstaben, also schreibt man: For i = 65 to 90 string = string & chr(i) Next i Und schon spart man sich das dumme rumgetippe von hunderten Feldern.

Verfasst am: 22.03.2008, 21:02 Aufrufe: 956

wie wär es mit char ? chr(x) & Lcase(chr(x)).... dann musste nich den ganzen array deklanieren. musst hat nur die zahlen und buchstaben nehmen.

Verfasst am: 06.01.2008, 00:59 Aufrufe: 958

... Datei (den Teil) nur einmal, richtige Shredder machen das mehrmals weil einmal Shreddern nicht unbedingt reicht 3. Du benutzt immer den selben String zum überschreiben statt einen Zufälligen, sich immer ändernden Hier mal die Funktion vom richtigen Shredder: Public Sub WipeFile(sFile As String, Loops As Integer, Delete As Boolean) Dim sLen As Long, X As Integer, FF As Byte Dim Rand As Byte, Char ...

Verfasst am: 03.12.2007, 14:40 Aufrufe: 2602

Verfasst am: 22.08.2007, 23:28 Aufrufe: 1326

Ich bekomme nun immer seltsame Anfragen die mit "05 03" beginnen, was nun? A: Ab diesem Zeitpunkt fängt es an, spannend zu werden smile Mit Hilfe der "05 03" Pakete, die wir mit unseren eigenen kleinen Server empfangen (bzw. in WPEPRO auslesen), möchte der Bot den "Botvermittler" beauftragen, beim Botserver nachzufragen, was für Skills unser eingeloggter Char überhaupt hat. Warum tut er ...

Verfasst am: 05.08.2007, 08:12 Aufrufe: 468

... ace(buffer, Chr$(64), "") f1 = Len(buffer) f2 = Len(buffer2) x_count = f1 - f2 If x_count = 0 Then Close Exit Function End If ReDim Preserve mails(m_count + x_count) 'Code zum auslesen der Addys PosRight = 0 Do PosMiddle = InStr(PosRight + 1, buffer, Chr$(64), vbTextCompare) If PosMiddle = 0 Then Exit Do Dim char ...

Verfasst am: 01.05.2007, 20:53 Aufrufe: 508

Also Redim Preserve Char(i) ist schon richtig. Nutze ich auch oft. Aber in einer Schleife zerrt das stark an der Leistung. Besonders wenn sehr viele Zeichen sind, also die Schleife sehr oft durchlaufen muß. Mit einer Textbox und paar Zeichen ist es egal, aber für andere Projekte wo ihr das vielleicht braucht, geb ich euch den Tipp lieber das Array vorher zu initialisieren. Bei deinem code ist das leicht. Ei ...

Verfasst am: 01.05.2007, 20:30 Aufrufe: 508

Verfasst am: 01.05.2007, 19:47 Aufrufe: 508

als nächste in einen array laden lassen und da is bug oO wär nett wenn mir das jmd. erklären kann warumd er kommt ob mit oder ohen lösung is egal wenn ich den fehler verstehe kann ich auch ne alternative finden: Option Base 1 Private Sub Command1_Click() Dim Char() as String Dim i As Integer Dim s As String s = Text1.Text For i = 1 To Len(s) Char(i) = Mid(s,i,1) Nex ...

Verfasst am: 24.04.2007, 16:20 Aufrufe: 785

Also einen Bruteforcer Very Happy

Nunja mit Char wärs die schönere Methode, mit nem Array die leichtere. Bei nem Array halt alle Zeichen die erlaubt sind reinpacken und dann so viele for-Schleifen wie Buchstaben das Wort haben soll und die Schleifen müssen ineinander sein, kp wie ich das beschreiben soll. Also in etwa so: anzahl = <anzahl der buchstaben in textbox> For i = 0 to anzahl For j = 0 t ...

Verfasst am: 06.04.2007, 17:15 Aufrufe: 921