Letters veranderen.

[GDay]

Hey
Ik heb eens een programma gezien dat
Als je op start drukte
En je drukte een E op je toetsenbord dat het een a werd
en een b werd een p

Ect

Hoe kun je maken dat hij de letters veranderd
Ik weet niet of ik het goed uitleg
Maar dat als je op je toetsenbord een z typt dat in het scherm een y komt.

( dit is niet voor een virus of wtf dan ook tis gewoon om van te leren!

 

[CoD_NL]

Wil je die 'e' naar een 'a' veranderen in je programma zelf ? Of wil je gewoon als er ergens de letter 'e' is getypt een 'a' tonen ? (ik vermoed het tweede omdat je het over een 'virus' hebt ?)

 

[GDay]

Erbuiten als je op de start knop drukt en je drukt op een a dat er een b komt
en als je op stop drukt dat het normaal word

 

[That Guy]

easy... je hebt de API "GetKeyAsyncState" nodig, om te zien welke letter er getypt word... zoek in de API finder

 

[GDay]

Waar en hoe doe je dat dan ik snap het niet echt

Gday:thumb:

 

[GDay]

Ik heb vb in het duits en kan het echt niet vinden lol

 

[That Guy]

Declare:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Timer1 event:

Dim i as integer
For I = 1 To 255
result = 0
result = GetAsyncKeyState(I)
If result = -32767 Then
msgbox Chr(I)
End If
Next I

 

[GDay]

Ty <3

En hoe pas ik dan die letters ect aan

 

[That Guy]

ja, ik houd ook van jou (dat was sarcastisch)
Wat dacht je van:

Dim i as integer
For I = 1 To 255
result = 0
result = GetAsyncKeyState(I)
If result = -32767 Then
   select case Chr(I)
      case "a"
         sendkeys "b"
      case "b"
         sendkeys "c"
   end select
End If
Next I

of iets dergelijks

 

[GDay]

Hij onderstreept result als fout/.

 

[That Guy]

dim result as long

....

 

[CoD_NL]

http://www.vbaccelerator.com/home/VB/Tips/SendKeys_using_the_API/article.asp

 

[GDay]

Die url van jou cod_nl

gaat over iets anders en
Vegras
het werkt niet

 

[CoD_NL]

Misschien moet je eens beter leren lezen ?

VB provides the SendKeys command which is supposed to create key events in the focus control. However, in practice SendKeys sometimes doesn't work correctly, it is missing some keys and doesn't offer much flexibility in controlling the sequence of key strokes that gets sent. This article demonstrates using the Win32 keybd_event API call to circumvent these limitations.

 

[GDay]

Nou 9 van de 10 woorden die in die text staan begrijp ik niet

 

[CoD_NL]

Nou 9 van de 10 woorden die in die text staan begrijp ik niet

Dan probeer je een Nederlandse tutorial te zoeken. Of je bekijkt wat voorbeelden. Misschien dat je die wel begrijpt.

 

[WILLIAMXXX]

Het is niet zo moeilijk, ik heb eens een programma met geheim schrigt gemaakt de A werd bijvoorbeeld een B.
De B werd C
De C werd D
etc, iedere keer een letter hoger. Als je zoiets wilt kan ik je wel even een code geven(je kunt het bijvoorbeeld ook meeredere letters hofer doen dus A wordt Z):thumb:

 

[GDay]

Het is niet zo moeilijk, ik heb eens een programma met geheim schrigt gemaakt de A werd bijvoorbeeld een B.
De B werd C
De C werd D
etc, iedere keer een letter hoger. Als je zoiets wilt kan ik je wel even een code geven(je kunt het bijvoorbeeld ook meeredere letters hofer doen dus A wordt Z):thumb:

Nou als je dat zou willen doen heel erg bedankt !

Gday:thumb:

 

[That Guy]

wat je, indien je de API en sendkeys (of zoiets) gebruikt, kan doen, is zoiets:

Dim i as integer
dim result as integer
For I = 1 To 255
result = 0
result = GetAsyncKeyState(I)
If result = -32767 Then
[COLOR="Red"]Sendkeys (i+1)[/COLOR]
End If
Next I

 

[CoD_NL]

Het is niet zo moeilijk, ik heb eens een programma met geheim schrigt gemaakt de A werd bijvoorbeeld een B.
De B werd C
De C werd D
etc, iedere keer een letter hoger. Als je zoiets wilt kan ik je wel even een code geven(je kunt het bijvoorbeeld ook meeredere letters hofer doen dus A wordt Z):thumb:

Dat is niet zo heel moeilijk. Hij moet alleen even leren hoe ie 't verstuurd.

Simpel voorbeeld omzetten zoals WILLIAMXXX waarschijnlijk bedoelde:
(code houdt geen rekening met hoofdletters bijvoorbeeld)

Dim orig() As Variant, encr() As Variant
Dim s As String, ss As String, temp As String
Dim i As Integer, j As Integer
orig() = Array("a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", _
               "u", "v", "w", "x", "y", "z")
encr() = Array("z", "y", "x", "w", "v", "u", "t", "s", "r", "q", "p", "o", "n", "m", "l", "k", "j", "i", "h", "g", _
               "f", "e", "d", "c", "b", "a")

s = "hallo" 'hallo omgezet is -> szool
ss = "szool"

For i = 1 To Len(s)
  For j = LBound(orig) To UBound(orig)
    If (Mid(s, i, 1) = orig(j)) Then
       temp = temp + encr(j)
    End If
  Next j
Next i

MsgBox temp 'encrypted
temp = ""

For i = 1 To Len(ss)
  For j = LBound(encr) To UBound(encr)
    If (Mid(ss, i, 1) = encr(j)) Then
      temp = temp + orig(j)
    End If
  Next j
Next i

MsgBox temp 'decrypted

edit: beetje verwarrend dat anderen VB6 code beginnen te posten. In het ander topic zie ik dat je in VB.NET werkt. Dan werkt bovenstaande code uiteraard niet. ('t idee erachter uiteraard wel. Zul je dus moeten omzetten)