应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台» 网络生活区» 有奖问答 » 有奖问答中转子版 » 懂VB的请进：如何查看一个程序运行后，记录的命令格式。
北京石油化工学院2026年研究生招生接收调剂公告
91/1返回列表
查看: 258  |  回复: 8
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前主题已经存档。
【悬赏金币】回答本帖问题，作者无声黑白破东风将赠送您 10 个金币

无声黑白破东风

银虫 (正式写手)

[求助] 懂VB的请进：如何查看一个程序运行后，记录的命令格式。

比如调用RNAstructure.exe后，输入的是rna.seq，得到的结果是rna.ct
命令记录就是：
D:\Program   Files\RNAstructure   4.11\RNAstructure.exe""   /fold   -s   rna.seq   -c   rna.ct

网上找到了有人编好的，可是看不懂，有高手帮我看看，如何用吗？
编好的在http://community.csdn.net/Expert/TopicView3.asp?id=5601470
“hotus“的
*****************************************************************
模块中
Private Declare Function NtQueryInformationProcess Lib "ntdll" (ByVal ProcessHandle As Long, ByVal ProcessInformationClass As Long, ByRef ProcessInformation As Any, ByVal lProcessInformationLength As Long, ByRef lReturnLength As Long) As Long
Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Const PROCESS_ALL_ACCESS = &H1F0FFF
Public Const PROCESS_TERMINATE = &H1
Public Const PROCESS_VM_READ = 16
Public Const PROCESS_QUERY_INFORMATION = 1024
Public Const PROCESS_SET_INFORMATION = 612
Private Type PROCESS_BASIC_INFORMATION
ExitStatus As Long
PebBaseAddress As Long
AffinityMask As Long
BasePriority As Long
UniqueProcessId As Long
InheritedFromUniqueProcessId As Long
End Type

Public Function GetCmdLine(ByVal plngPID As Long) As String
Dim strBuffer As String
Dim hProcess As Long
Dim offset1 As Long
Dim offset2 As Long
Dim Dummy As Long
Dim Info As PROCESS_BASIC_INFORMATION
Const STATUS_SUCCESS As Long = 0

offset1 = 1
offset2 = 0

hProcess = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ, 0, plngPID)
If (hProcess = 0) Then
Exit Function
End If
If (NtQueryInformationProcess(hProcess, 0, Info, Len(Info), ByVal 0& <> STATUS_SUCCESS) Then
CloseHandle hProcess
Exit Function
End If
If (ReadProcessMemory(hProcess, (Info.PebBaseAddress + &H10), offset1, 4, Dummy) = STATUS_SUCCESS) Then
CloseHandle hProcess
Exit Function
End If

If (ReadProcessMemory(hProcess, (offset1 + &H44), offset2, 4, Dummy) = STATUS_SUCCESS) Then
CloseHandle hProcess
Exit Function
End If
strBuffer = String(256, " "
If (ReadProcessMemory(hProcess, offset2, ByVal strBuffer, 256, Dummy) = STATUS_SUCCESS) Then
CloseHandle hProcess
Exit Function
End If
CloseHandle hProcess
strBuffer = Left$(strBuffer, InStr(strBuffer, Chr(0) & Chr(0)))
GetCmdLine = StrConv(strBuffer, vbFromUnicode)
End Function


使用
msgbox getcmdline(进程PID)
****************************************************************

[ Last edited by 无声黑白破东风 on 2007-8-30 at 10:33 ]
回复此楼

» 猜你喜欢
周杰伦粉丝团团长！
1楼 2007-08-29 17:28:51
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

liaoyongpi

木虫 (正式写手)
没明白什么意思？
要看命令格式好像命令后面+“？”就可以吧。
赞一下 回复此楼
2楼2007-08-29 17:45:10
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

无声黑白破东风

银虫 (正式写手)
up              
3楼2007-08-30 10:34:44
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

ihlw

★ ★ ★ ★ ★
无声黑白破东风(金币+5,VIP+0):你好，我试用了一下，输入了pid后，只看见方法一里有了exe文件的位置，但是点击后，总是报run-time error: '438'...这是为啥呢? xixi...
程序见：

http://ihlw.ys168.com/

里面“临时”目录。

包含源文件和编译好的程序。

直接运行“GetCommandLine.exe”后，点击方法1就行。方法2需要知道程序的pid值。打开任务管理器，菜单-》查看=》选择列-》选中pid，然后输入相对应的pid，按“方法2”也行。
赞一下(4人) 回复此楼
4楼2007-08-31 12:26:31
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

ihlw

★ ★ ★ ★ ★
无声黑白破东风(金币+2,VIP+0):不知为啥，还是不行，我把Rnastructure程序放到http://wshbpdf.ys168.com/了，辛苦你了
无声黑白破东风(金币+3,VIP+0):嘿嘿，我在winxp下试了，可以运行了，可惜看不到RNAstructure.exe的参数 【/fold -s rna.seq -c rna.ct】，估计比较难做吧^_^
请试试新版
回复此楼
5楼2007-09-03 23:25:24
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

gyh

至尊木虫 (著名写手)
这个程序我理解是：先通过 OpenProcess获得D:\Program   Files\RNAstructure   4.11\RNAstructure.exe可执行文件的进程，然后利用NtQueryInformationProcess向该进程输入参数，即""   /fold   -s   rna.seq   -c   rna.ct，最后采用ReadProcessMemory来获得执行结果。这段程序的思想是进程之间操作。不知道你为何不采用excute等函数来完成任务（具体函数名称请查帮助）？
赞一下 回复此楼
6楼2007-09-04 07:30:34
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

无声黑白破东风

银虫 (正式写手)

另设的奖贴

http://muchong.com/bbs/viewthread.php?tid=561988
赞一下 回复此楼
周杰伦粉丝团团长！
7楼2007-09-04 10:41:09
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

无声黑白破东风

银虫 (正式写手)
Rnastructure程序放到http://wshbpdf.ys168.com/了
赞一下 回复此楼
周杰伦粉丝团团长！
8楼2007-09-04 10:43:14
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 无声黑白破东风 的主题更新
91/1返回列表
不应助 确定回帖应助 (注意：应助才可能被奖励，但不允许灌水，必须填写15个字符以上)
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 083000学硕274求调剂 +7 Li李鱼 2026-03-26 7/350 2026-03-28 08:01 by baoball
[考研] 085701环境工程，267求调剂 +13 minht 2026-03-26 13/650 2026-03-28 07:14 by mmm just
[考研] 求调剂 +8 张zz111 2026-03-27 9/450 2026-03-28 03:41 by fmesaito
[考研] 085602 化工专硕 338分 求调剂 +10 路痴小琪 2026-03-27 10/500 2026-03-28 03:36 by fmesaito
[考研] 一志愿哈尔滨工业大学材料与化工方向336分 +6 辰沐5211314 2026-03-26 6/300 2026-03-28 03:31 by fmesaito
[考研] 070300求调剂306分 +3 26要上岸 2026-03-27 3/150 2026-03-27 17:57 by arrow8852
[考研] 复试调剂，一志愿南农083200食品科学与工程 +5 XQTJZ 2026-03-26 5/250 2026-03-27 14:49 by 狂炫麦当当
[考研] 考研化学308分求调剂 +10 你好明天你好 2026-03-23 12/600 2026-03-27 14:43 by shangxh
[考研] 085600，材料与化工321分调剂 +4 大馋小子 2026-03-27 6/300 2026-03-27 14:11 by 松花缸1201
[考研] 316求调剂 +5 Pigcasso 2026-03-24 5/250 2026-03-27 12:10 by zhshch
[考研] 314求调剂 +3 溪云珂 2026-03-26 3/150 2026-03-27 11:20 by sanrepian
[硕博家园] 北京林业大学硕导招生广告 +6 kongweilin 2026-03-26 8/400 2026-03-27 10:18 by FF_16
[考研] 351求调剂 +4 麦克阿磊 2026-03-24 4/200 2026-03-27 00:32 by wxiongid
[考研] 341求调剂 +7 青柠檬1 2026-03-26 7/350 2026-03-27 00:19 by wxiongid
[考研] 0856求调剂 +8 zhn03 2026-03-25 9/450 2026-03-26 13:42 by zzll406
[考研] 303求调剂 +6 蓝山月 2026-03-25 6/300 2026-03-25 22:47 by 418490947
[考研] 0854AI CV方向招收调剂 +4 章小鱼567 2026-03-23 4/200 2026-03-25 17:04 by CoderLoser
[考研] 318求调剂 +3 plum李子 2026-03-23 3/150 2026-03-25 09:42 by 雾散后相遇lc
[考研] 300求调剂，材料科学英一数二 +5 leaflight 2026-03-24 5/250 2026-03-24 16:25 by laoshidan
[考研] 269求调剂 +4 我想读研11 2026-03-23 4/200 2026-03-23 21:25 by pswait
信息提示
关闭
请填处理意见
关闭