就是在用控制台api进行输入输出的时候在要求传入 输入输出句柄的地方 固定是那几个植
Option ExplicitPublic Declare Function AllocConsole Lib "kernel32" () As LongPublic Declare Function WriteConsole Lib "kernel32" Alias "WriteConsoleA" (ByVal hConsoleOutput As Long, lpBuffer As Any, ByVal nNumberOfCharsToWrite As Long, lpNumberOfCharsWritten As Long, lpReserved As Any) As LongPublic Declare Function ReadConsole Lib "kernel32" Alias "ReadConsoleA" (ByVal hConsoleInput As Long, lpBuffer As Any, ByVal nNumberOfCharsToRead As Long, lpNumberOfCharsRead As Long, lpReserved As Any) As LongSub main()
Dim a As String * 3
AllocConsole
WriteConsole 11, ByVal "hello_world", 12, 0, 0 '请问这里为啥固定是7或者是11
ReadConsole 3, ByVal a, 2, 0, 0 '这里为什么固定又是3
End Sub而且和GetStdHandle的结果是一样的 难道那几个植真的有什么含义么
Option ExplicitPublic Declare Function AllocConsole Lib "kernel32" () As LongPublic Declare Function WriteConsole Lib "kernel32" Alias "WriteConsoleA" (ByVal hConsoleOutput As Long, lpBuffer As Any, ByVal nNumberOfCharsToWrite As Long, lpNumberOfCharsWritten As Long, lpReserved As Any) As LongPublic Declare Function ReadConsole Lib "kernel32" Alias "ReadConsoleA" (ByVal hConsoleInput As Long, lpBuffer As Any, ByVal nNumberOfCharsToRead As Long, lpNumberOfCharsRead As Long, lpReserved As Any) As LongSub main()
Dim a As String * 3
AllocConsole
WriteConsole 11, ByVal "hello_world", 12, 0, 0 '请问这里为啥固定是7或者是11
ReadConsole 3, ByVal a, 2, 0, 0 '这里为什么固定又是3
End Sub而且和GetStdHandle的结果是一样的 难道那几个植真的有什么含义么
解决方案 »
- 用户定义类型未定义
- 如何给FarPoint Spread控件创建的界面添加颜色?
- VB 中, Var 函数 是将字符串转换为数字类型.但当字符串无法转换成数据类型时,怎么办?
- 如何让让窗体的控件可以象在设计时一样移动位置(包括键盘及鼠标移动)更改控件及字体大小?
- 大侠们请进来帮忙,谢谢,关于socket
- 数据库查询问题,怪了,总是提示“标准表达式中类型不匹配”!大家帮帮忙
- 如何在程序中启动excel?
- 如何把vb程序生成一个安装器,急,在线等!!!!!
- VB中怎样制作Office助手?
- 数据库文件密码问题!大狭们快帮帮我啊!一定给分
- *** vb调用java ***
- 【求助】 关于打开VB6.0开发平台时的控件注册问题。
http://download.csdn.net/detail/zhao4zhong1/3461309
但实际调用时,传入的并不象是句柄呀。
推荐一个: FoxAPI