str = Text1.Text 'StrΪº°»°ÄÚÈÝ
i = 0
data = StrConv(str, vbfromUnicode)
While i <= UBound(data)
If data(i) < 128 Then
PostMessage hwnd, WM_CHAR, data(i), 0&
PostMessage hwnd, WM_SETFOCUS, 0, 0 '»ñµÃ´°¿Ú½¹µã
PostMessage hwnd, WM_KEYDOWN, VK_RETURN, MapVirtualKey(VK_RETURN, WM_KEYDOWN) '·¢Ëͻسµ¼ü
i = i + 1
Else
PostMessage hwnd, WM_CHAR, data(i), 0&
PostMessage hwnd, WM_CHAR, data(i + 1), 0&
i = i + 2
End If
Wend
×Ô¼º×ª¿Ï¶¨ÒªVBºÍC#¶¼»áÓ𡣬£¬Òª²»¾ÍÕÒ¹¤¾ß°É¡£¡£¿´ÓÐûÓС£
DLLIMPORT PostMessageËùÔÚµÄDLL£¬ÔÙ¶¨ÒåÐèÒªµÄ³£Á¿
C# code:
int i=0;
string talkStr = talkTBox.Text;
byte[] talkBytes = System.Text.Encoding.Unicode.GetBytes(talkStr);
while (i < talkBytes.Length)
{
if (talkBytes[i] < 128)
{
PostMessage(gameHandle, (int)WinIo.WinMsg.WM_CHAR, talkBytes[i], 0);
i++;
}
else
{
PostMessage(gameHandle, (int)WinIo.WinMsg.WM_CHAR, talkBytes[i], 0);
PostMessage(gameHandle, (int)WinIo.WinMsg.WM_CHAR, talkBytes[i+1], 0);
i = i + 2;
}
}
Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
×î½üÔÚ×ö¸öÍøÉÏÉ̳ǣ¬¹ºÎﳵģ¿é£¬Ã»ÓÐ×ö¹ý£¬Âé·³¸÷λ°ïæ˵Ï´óÖÂ˵ÏÂ˼·£¬ÄÜ·¢Ò»·ÝÔ´Âë¸üºÃ¡£Ð¡µÜÏÈл¹ý¸÷λÁË£»
QQ£º413763818£»
eamil:swebook@126.com
ÍøÉÏÒ»´ó¶Ñ£¡
www.51aspx.com
ȥϠ......
ÎÒÏë°Ñ´¿Õæip¿âµ¼³öµ½sqlserver£¬ÎÒÓÃϱߵĽéÉÜ·½·¨£¬£¨ËüÖ÷ÒªÊǵ¥¸öIP²éѯµÄ£©
http://www.cnblogs.com/njnudt/archive/2007/04/08/704524.html
¸ÄÁËÒ»ÏÂÄܹ»µÃµ½ËùÓеĹú¼ÒºÍµØÇøÐÅÏ¢£¬µ«ÊDz»Äܵõ½ipµØÖ·µ ......