11-10-12, 03:04 PM
(آخر تعديل لهذه المشاركة : 11-10-12, 09:35 PM {2} بواسطة هنودي الجميلي.)
عاوز يبعت send بى اسم qwer.txt منغير مكتب Notepad
كود :
Interaction.AppActivate("qwer.txt")
My.Computer.Keyboard.SendKeys("Q")
My.Computer.Keyboard.SendKeys("w")
My.Computer.Keyboard.SendKeys("e")
My.Computer.Keyboard.SendKeys("r")