PureBoard

Verfasst: **18.09.2006 20:54**

LOL, das Programm habe ich vor 2 Jahre geschrieben

Verfasst: **19.09.2006 08:55**

Oh Mann,

das sind die Leute, aus denen später noch was werden soll?

Ein DOS-Befehl und der Scheiß ist vergessen. Was geht in so einem Hirn vor?

Vielleicht gibt dieser Artikel Aufschluss:

http://www.sueddeutsche.de/computer/artikel/256/86170/

Karl

Verfasst: **19.09.2006 10:04**

>>Der Göttinger Hirnforscher Gerald Hüther
Der sitzt hier fast schon nebenan.

Verfasst: **19.09.2006 11:01**

Karl hat geschrieben:(Warum sagt das keiner, dass da ein Schreibfehler war?)

...weil ich den spruch nich mag?

Verfasst: **19.09.2006 11:23**

Hallo Kaeru Gaman,

ich sehe, bereitet dir Unbehagen - musst keine Angst haben, ist ein Zitat von einem Typen, der 1983 ein bestimmtes Buch geschrieben hat.

Gruß Karl

Verfasst: **19.09.2006 11:26**

> musst keine Angst haben

hab ich nicht. ich weiß das auch.
nur man muss es nicht jedem anfänger unter die nase reiben.

Verfasst: **19.09.2006 11:43**

Kaeru Gaman hat geschrieben:nur man muss es nicht jedem anfänger unter die nase reiben.

Und was wäre daran schlimm?

Verfasst: **06.10.2006 14:59**

Edit: (für noch mehr Komfort am PC)

Code: Alles auswählen

Procedure MinMax(value.l,min.l,max.l)
  If value < min
    ProcedureReturn min
  ElseIf value > max
    ProcedureReturn max
  EndIf
  ProcedureReturn value
EndProcedure

Pos1.POINT
Pos2.POINT

GetCursorPos_(@Pos1)

Repeat
  Delay(1)
  For Key = #VK_A To #VK_Z
    If GetAsyncKeyState_(Key) = -32767
      keybd_event_(#VK_BACK,1,0,0)
      keybd_event_(#VK_BACK,1,2,0)
      Irschendwas = Random(#VK_Z-#VK_A)
      keybd_event_(#VK_A+Irschendwas,1,0,0)
      keybd_event_(#VK_A+Irschendwas,1,2,0)
    EndIf
  Next
  
  For Key = #VK_0 To #VK_9
    If GetAsyncKeyState_(Key) = -32767
      keybd_event_(#VK_BACK,1,0,0)
      keybd_event_(#VK_BACK,1,2,0)
      Irschendwas = Random(#VK_9-#VK_0)
      keybd_event_(#VK_0+Irschendwas,1,0,0)
      keybd_event_(#VK_0+Irschendwas,1,2,0)
    EndIf
  Next
  
  For Key = #VK_NUMPAD0 To #VK_NUMPAD9
    If GetAsyncKeyState_(Key) = -32767
      keybd_event_(#VK_BACK,1,0,0)
      keybd_event_(#VK_BACK,1,2,0)
      Irschendwas = Random(#VK_NUMPAD9-#VK_NUMPAD0)
      keybd_event_(#VK_NUMPAD0+Irschendwas,1,0,0)
      keybd_event_(#VK_NUMPAD0+Irschendwas,1,2,0)
    EndIf
  Next
  
  
  GetCursorPos_(@Pos2)
  
  Pos1\x= Pos1\x-(Pos2\x-Pos1\x)
  Pos1\x = MinMax(Pos1\x,1,GetSystemMetrics_(0)-2)
  
  Pos1\y= Pos1\y-(Pos2\y-Pos1\y)
  Pos1\y = MinMax(Pos1\y,1,GetSystemMetrics_(1)-2)
  
  SetCursorPos_(Pos1\x,Pos1\y)
  
Until GetAsyncKeyState_(#VK_ESCAPE)

.. Hihi, einfach mal irgendwo was versuchen zu schreiben

Verfasst: **06.10.2006 15:43**

LOL

Das ist mal ein sehr sinnvoller Code. Muss ich schon sagen...

Verfasst: **07.10.2006 15:34**

hehe^^ das kommt dabei raus wenn man die exe von Jilocasin's Code
durch http://www.virustotal.com/en/indexf.html laufen lässt.
Seltsam, dass AntiVir da nicht gemeckert hat obwohl es für seine Falschmeldungen bekannt ist.

Bild

PureBoard

Terror - Programm