给rm加上按钮

sizz123

   偶尔看到:"从外部导入脚本"的文章,联想到用api可以实现rm与vb间的信息传输-----如果vb输出的是一段rm脚本,rm又能读那脚本,那么是完全可以用vb的按钮来执行rm的命令.
比如:当我按下vb的存档按钮的时候,传输1个命令"$scene=scene_save".....当然,这个论题还在研究中.

ps:前几天看网络上vb文章的时候,发现可以用它播放影音文件,好象是用风暴的dll----我不清楚用SetParent的方式会不会有效果

yangff

      if FileTest.exist?("waitorun.list")
        a = []
        f = File.open("waitorun.list")
          f.each {|line|
                a.push(line)
          }
        f.close
        File.delete("waitorun.list")
        for i in 0...a.size
          eval(a)
        end
      end

yangff

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetFocusapi Lib "user32" Alias "SetFocus" (ByVal hWnd As Long) As Long
Private Sub Command1_Click()
Dim hWnd As Long
hWnd = FindWindow(vbNullString, Text1.Text)
If hWnd <> 0 Then
    Open App.Path & "\waitorun.list" For Output As #1
    Print #1, Text2.Text
    Close
    SetFocusapi (hWnd)
Else
    MsgBox ("无法取得句柄?请自行给予窗体焦点")
    Open App.Path & "\waitorun.list" For Output As #1
    Print #1, Text2.Text
    Close
End If
End Sub

yangff

窗口句柄获得不能

yangff

以下引用小lim于2008-5-25 23:22:57的发言：

楼主的思路完全能够做到，而且还有更省事的方法，自写一个API就好了，简单很多……
网络上有很多参考，不难的。

有吗?发个给我？

sizz123

   不需要用相对路径的,把vb和rm放在同一个文件夹中,直接写文件名就好了

psyo

{/fd}貌似是ＲＭ的外挂一样．．．．．．．到外挂技术网站去看看，应该能写出来的，比较期待～～～～～～　楼主可以用　＜＜易语言＞＞＋小烦外挂海模块试试，很强大的外挂专用编写模块，会ＶＢ因该很容易看懂．．．

sizz123

以下引用psyo于2008-5-27 14:34:28的发言：

貌似是ＲＭ的外挂一样．．．．．．．到外挂技术网站去看看，应该能写出来的，比较期待～～～～～～　楼主可以用　＜＜易语言＞＞＋小烦外挂海模块试试，很强大的外挂专用编写模块，会ＶＢ因该很容易看懂．．．


[本贴由作者于 2008-5-27 14:36:51 最后编辑]

谢谢关心,不过我没有用过易语言.
-------------------------------------------------------------------------------
有个问题:如何获得窗体的大小和位置,用什么函数?

yangff

大小不就是640*480,至于位子我记得有API