Verfasst: 01.10.2007 19:01
Du weißt aber schon das es je nach Schriftart andere sind ,oder gehst du von ASCII Codes aus????
ja ich gehe von ASCII aus
geht es denn bei dir wenn du dies eingibst?
ja ich gehe von ASCII aus
geht es denn bei dir wenn du dies eingibst?
Code: Alles auswählen
;::::Funny Strings!::::;
OpenWindow(0,0,0,200,40,"Funny Strings!",#PB_Window_MinimizeGadget)
Repeat
Delay(10)
Ereignis = WindowEvent()
If ereignis = #PB_Event_CloseWindow :esc = 1:EndIf
If GetAsyncKeyState_(#VK_Y)
;keybd_event_(#VK_BACK,0,0,0):keybd_event_(#VK_BACK,0,#KEYEVENTF_KEYUP,0)
keybd_event_(#VK_LMENU,0,0,0)
Delay(10)
keybd_event_(#VK_NUMPAD1,0,0,0);:::::::::::::::::::::::::dies habe ich geändert
keybd_event_(#VK_NUMPAD1,0,#KEYEVENTF_KEYUP,0)
keybd_event_(#VK_NUMPAD9,0,0,0)
keybd_event_(#VK_NUMPAD9,0,#KEYEVENTF_KEYUP,0)
keybd_event_(#VK_NUMPAD0,0,0,0)
keybd_event_(#VK_NUMPAD0,0,#KEYEVENTF_KEYUP,0)
Delay(10)
keybd_event_(#VK_LMENU,0,#KEYEVENTF_KEYUP,0)
EndIf
Until esc = 1