本帖最后由 n15976906190 于 2015-1-16 16:59 编辑
发的代码很简洁或者说简单,一个好的帖子在我看来是一个思路、一个写法。
'带 Call Plugin 写法
Import "Msg.dll"
Execute "Msg.Tips("&chr(34)&"我是气泡···气泡!哦也"&chr(34)&")"
'无 Call Plugin 写法
Execute "FindPic 0,0,1024,768,"&chr(34)&"Attachment:\1.bmp"&chr(34)&",0.9,intX,intY"
Execute "If intX > 0 And intY > 0 Then"
Execute "MoveTo intX,intY"
Execute "End If"
'注:所以字串均写于txt/网页等,楼主懒,忽略读取分割部分
str = "zcx"
str =str& vbCrLf &"Sub zcx()"& vbCrLf &"MsgBox 1"& vbCrLf & "End Sub"
Execute str