|
[求助]VB中的&为什么不起作用?问题何在?
用API获取的Ini文件必须去除"\0"才行。 Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long Dim s As String * 256 dim compilerPath As String GetPrivateProfileString "IniSection", "Key", "", s, 256, "IniFilePath" For i = 1 To Len(s) If Asc(Mid(s, i, 1)) <> 0 Then compilerPath = compilerPath + Mid(s, i, 1) Else Exit For End If Next MsgBox compilerPath & "\MyExeFile.exe" |
|
[求助]VB代码如何实现判断某路径下某文件是否存在?
用API获的Ini内的字符必须去除多余的"\0"。 Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long Dim s As String * 256 dim compilerPath As String dim fe GetPrivateProfileString "IniSection", "Key", "", s, 256, "IniFilePath" For i = 1 To Len(s) If Asc(Mid(s, i, 1)) <> 0 Then compilerPath = compilerPath + Mid(s, i, 1) Else Exit For End If Next Set fe = CreateObject("Scripting.FileSystemObject") If fe.FileExists(compilerPath & "\masm.exe") Then MsgBox "文件存在!" Else MsgBox "文件不存在!" End If |
|
[求助]VB代码如何实现判断某路径下某文件是否存在?
Set fe = CreateObject("Scripting.FileSystemObject") If fe.FileExists("lpFileNamePath") Then MsgBox "文件存在!" Else MsgBox "文件不存在!" End If |
|
|
|
这是什么意思。。
呵呵,你自己编一个程序看看不就明白了。 .386 .model flat,stdcall Option CaseMap:None include windows.inc include kernel32.inc include user32.inc includelib kernel32.lib includelib user32.lib .data szBuffer db 50 dup(0) szFormat db "%08X-%08X-%08X-%08X",0 n1 dd 0 n2 dd 0 n3 dd 0 n4 dd 0 .CODE START: mov n1,12345678h mov n2,12345678h mov n3,12345678h mov n4,12345678h shr n1,16 shl n2,16 ror n3,16 rol n4,16 invoke wsprintf,addr szBuffer,addr szFormat,n1,n2,n3,n4 invoke MessageBox,NULL,addr szBuffer,NULL,MB_OK invoke ExitProcess,NULL END START 结果: n1 = 12345678h shr 16 = 00001234h n2 = 12345678h shl 16 = 56780000h n3 = 12345678h ror 16 = 56781234h n4 = 12345678h rol 16 = 56781234h |
|
这个编译问题怎么解决
"he" = 6865h "re" = 7265h "i" = 69h "am" = 616Dh 所以: cmp bx,"he" xor "re" xor "i" xor "am" cmp bx,6865h xor 7265h xor 69h xor 616Dh 结果就是: cmp bx,7B04h |
|
关于 小虾 写的程序---------有个问题问你下。。。大家都来帮下
哦,这个呀,是我在编写的时候想当然将10进制的10当成是16进制的0x10了,认为模10后还有0x0A的,这个判断去掉也没问题的。呵呵 |
|
求助,MASM32V9R问题[求助]
错误: Microsoft (R) Windows (R) Resource Compiler, Version 5.00.1823.1 - Build 1823 Using codepage 936 as default Creating rsrc.RES RC: RCPP -CP 936 -f C:\Documents and Settings\动力板车\桌面\RCa06668 -g C:\Docum ents and Settings\动力板车\桌面\RDa06668 -DRC_INVOKED -D_WIN32 -pc\:/ -E -I. -I . -I d:\Program file\vs.net\SDK\v1.1\include\ -I C:\masm32\include RC : fatal error RC1110 : could not open rsrc.rc Microsoft (R) Windows Resource To Object Converter Version 5.00.1736.1 CVTRES : fatal error CVT1101: cannot open rsrc.res for reading 请按任意键继续. . . 我开始用汇编时就没用过这个自带的Quick Editor软件,上面的错误是不能打开rsrc.rc文件,将你的*.rc文件改成rsrc.rc应该就可以了。 最后推荐你使用RadASM、EditPlus、MASMPlus来写汇编会更顺手。 |
|
[求助]请问:以下代码如何用timer来控制他的执行?谢谢!
你说的错误是什么?是DoObject执行错误还是Timer不触发? |
|
[求助]请问:以下代码如何用timer来控制他的执行?谢谢!
在Delphi中放一个Timer控件,设置好Timer触发的时间,在Timer事件中调用该函数。 |
操作理由
RANk
{{ user_info.golds == '' ? 0 : user_info.golds }}
雪币
{{ experience }}
课程经验
{{ score }}
学习收益
{{study_duration_fmt}}
学习时长
基本信息
荣誉称号:
{{ honorary_title }}
能力排名:
No.{{ rank_num }}
等 级:
LV{{ rank_lv-100 }}
活跃值:
在线值:
浏览人数:{{ visits }}
最近活跃:{{ last_active_time }}
注册时间:{{ user_info.create_date_jsonfmt }}
勋章
兑换勋章
证书
证书查询 >
能力值