2010 01月 | VB程序员博客

大家搜索“打，打个大西瓜”的视频，然后看看，听说居然是中国人做的。

http://v.youku.com/v_show/id_XMTIxNzYwMjg4.html好东西，呵呵呵呵,抽空看看我看过，很震撼！我看不了,公司禁视频顶起！Ding …………
先顶后看看完了!

很牛!!

这里是高清版下载地址:

http://www.verycd.com/topics/2770933/

要不是因为里面有很多中国的元素,我绝对会认为这是一部欧美动画短片,因为这种讽刺表现手法完全是欧美风格.

咱们伟大的D是不喜欢这种讽刺风格的,所以国内有这样能力的高手在目前也不太可能通过伟大的D而成长.

只能通过网络了…………

可悲啊!!!!!!!!!!!!!!!!!!!!!很好好强大O…http://v.youku.com/v_show/id_XMTIxNzYwMjg4.html<
中国的视频竟然敢不唱东方红？话说回来,这段视频的内容思路,我觉得与帝国时代的开场视频基本是一样的:

两个君主因为领土界线之争,而决定武力解决.看过了，2点想法：
1，人性是美好的。
2，不要战争。强很好，很强大<
<
<
很好很强大！……………………….做个记号，回头再看。

有点急~~谢谢各位~~
VB6.0的代码怎样转换到VB2008上要看具体的代码，不是能够100％转换的。
http://topic.csdn.net/u/20100116/10/a8ca2cf7-4b9e-4cbe-bc98-9b8c338a1656.htmlPrivate Sub Command2_Click()
Dim a, b, c
Do
a = Int(Rnd * 12) + 1
b = Int(Rnd * 12) + 1
c = Int(Rnd * 12) + 1
If a / b = c Then
Debug.Print a; "㷦quot;; b; "="; c
Exit Do
End If
Loop

End Sub

Private Sub Form_Load()
Randomize Timer
End Sub

以上是vb6.0的code 我在VB2008里那个Debug.Print a; "㷦quot;; b; "="; c中的 a; 下面有错误线提示
还有那个 Randomize Timer 中的Timer也有，谢谢帮忙~~~ 这是个关于被除数，除数，商都是1-12的整数，也就是说被除数一定能被除数整除，就像4除以2等于2，12除以6等于2

是在VB2008里，谢谢帮忙~~~~

If RadioButton4.Checked = True Then
Dim a = TextBox1.Text, b = TextBox2.Text, c = TextBox4.Text
Do
a = Int(Rnd() * 12) + 1
b = Int(Rnd() * 12) + 1
c = Int(Rnd() * 12) + 1
If a / b = c Then
Debug.Print("{0}㷻1}={2}", a, b, c)
Exit Do
End If
Loop
End If

以上这种情况我运行了没数在textbox里啊
If RadioButton4.Checked = True Then
TextBox1.Text = Int((12 * Rnd()) + 1)
TextBox2.Text = Int((12 * Rnd()) + 1)
Dim a = TextBox1.Text, b = TextBox2.Text, c = TextBox4.Text
Do
a = Int(Rnd() * 12) + 1
b = Int(Rnd() * 12) + 1
c = Int(Rnd() * 12) + 1
If a / b = c Then
Debug.Print("{0}㷻1}={2}", a, b, c)
Exit Do
End If
Loop
End If
这种情况有数但被除数不能被除数刚好整除谢谢~~~这个跟转换代码有关系么？没有~~但~~我最终要解决的就是这个整除问题~~大哥，你能帮上忙吗？我先把代码的分给你。谢谢你~~~“VB中怎样使被除数，除数，商都是1-12的整数” 这是我发的帖~~

是要提防滴…
心胸狭隘，猜忌多疑者有之。ps:最近流感泛滥，也要提防。

据说sofa要留给自己fsf哦，，
接分！<
jf

我看那倒分门和老V无关，多半是和大胡子一起抢分没拿到分又不太好意思直接站出来对薄公堂的人整个马甲投

得诉。。。。

还是审查一下吧，也算给群众一个交待。

虽然我主观上认为大胡子倒分可能性不大。

总有些人喜欢看老V、大胡子、老马三人折腾。。。

唉，一波刚刚平息一波又起，无语~~~~~

这会该换老马围观了

你们有什么不开心的，拿出来开心一下<
dfdsfdsfdsdfdsfdsfds?嘿嘿,老V的分要接.<
LZ的分要接的!
低调搞点分路过咋回事呀？？又掐架了？北京贼冷哇…<
哇哈哈哈，杀day day up~哈哈！！~~~不明真相………………
承接翻新航母、原子弹抛光/打蜡，高空作业擦洗卫星表面积尘。
另：回收二手核弹头。批发欧版大黄峰。火车轮胎打气，飞机红绿灯安装业务。
量大从优。业务电话：13800138000承接避孕套修补，苍蝇蚊子结扎，原子核、质子、中子（移位）定位。
另：承接星际星座间往返旅行、星球毁灭爆破等高空作业。
团购优先，0手续费。业务电话：10086
<
<
哦！！！<
<
~~不明真相的群众打酱油路过！<
o今天穿短袖jff接分分等下班﹐ 看了我的回帖就曉得我有多無聊﹗﹗提防~LZ你菜熟了<
sf接分aaa接分接分<
jf？…楼主咋了冷啊继续接分
每天坚持
谢谢散分
感谢LZ
啥情况?

有谁给我说明一下?什麼个情況?JF蹭蹭<
事情原来是这样.

了解.

不瞎下结论,围观一下.jf<
老老实实拿分吧jf<
<
打酱油打醋！最近总有一只恶心人的苍蝇嗡来嗡去…大家也要提防哦。收到<
接分啊 jf 现在就需要分数收到.继续围观……………坏人怎么都不死的好人都死得早阿某秃驴的报应一说被推翻了是非不在大声叫，网络相知搏一笑。恩仇过夜随风去，共享良辰酒一瓢。<
是非不在大声叫，网络相知搏一笑。恩仇过夜随风去，共享良辰酒一瓢。
<
有分没？分还多啊，继续蹭！你们有什么不开心的，说出来让大家开心一下
千提防万提防
最后还是被小人诬陷了
这世道…劝诸位莫入我后尘….

好恶心人的事情我想说说头像的问题!
图片加密，不知可否？举个例子：图片另存为的时候，要求输入密码。其实，我觉得，微软应该对图片的版权作出相应的处理，凡是有版权的图片任何人都动不了（包括：复制、传输、编辑等）！
管它呢。<
我估计是管理员封的

今天处理了一批人，疑似倒分的扣除倒分得分，全版封杀。。。

老V又帮管理员背了个黑锅，结了此贴，再开个三百分的帖子冲冲喜。

<
JF老魏，你的技术分排名很。。。。哦！250。。。<
pure jf——————————————–

——————————————–

接分耍 jf<
哎….好久没回来看看，接个分越来越发现某人的心理极度变态了<
<
<
分页咯

大家搜索“打，打个大西瓜”的视频，然后看看，听说居然是中国人做的。

http://v.youku.com/v_show/id_XMTIxNzYwMjg4.html好东西，呵呵呵呵,抽空看看我看过，很震撼！我看不了,公司禁视频顶起！Ding …………
先顶后看看完了!

很牛!!

这里是高清版下载地址:

http://www.verycd.com/topics/2770933/

要不是因为里面有很多中国的元素,我绝对会认为这是一部欧美动画短片,因为这种讽刺表现手法完全是欧美风格.

咱们伟大的D是不喜欢这种讽刺风格的,所以国内有这样能力的高手在目前也不太可能通过伟大的D而成长.

只能通过网络了…………

可悲啊!!!!!!!!!!!!!!!!!!!!!很好好强大O…http://v.youku.com/v_show/id_XMTIxNzYwMjg4.html<
中国的视频竟然敢不唱东方红？话说回来,这段视频的内容思路,我觉得与帝国时代的开场视频基本是一样的:

两个君主因为领土界线之争,而决定武力解决.看过了，2点想法：
1，人性是美好的。
2，不要战争。强很好，很强大<
<
<
很好很强大！……………………….做个记号，回头再看。

开发工具：VB6.0
现有如下代码，请各路高手赐教！小弟不胜感激~~如有源码更好！

Private Sub Command1_Click()
Dim xmlStr As String
xmlStr = getXML
'请问如何把xmlStr转成一个xml文档?
End Sub

Public Function getXML() As String
Dim xml As String
xml = xml + " <?xml version='1.0' encoding='UTF-8'?>"
xml = xml + " <FREIGHTCPIC>"
xml = xml + " <HEADER>"
xml = xml + " <TYPE>IN </TYPE>"
xml = xml + " <WORKTYPE>0 </WORKTYPE>"
xml = xml + " <CLASSESTYPE>1 </CLASSESTYPE>"
xml = xml + " <LOGINUSERNAME>ayyt </LOGINUSERNAME>"
xml = xml + " <LOGINPASSWORD>ayyt </LOGINPASSWORD>"
xml = xml + " </HEADER>"
xml = xml + " </FREIGHTCPIC>"
getXML = xml
End Function代开各行业【増直/鐠通】漂据。
另批发/零售仿真度可达90%以上各品牌香烟，如中华、黄鹤楼1916、芙蓉王、南京95至尊、白沙(和天下)、苏烟、玉溪、利群、双喜、世纪经典等。
如有意，请联系Q：1145553117。手机：13544123356、金先生

谢谢楼上的~

小弟是一个菜鸟中的菜鸟，刚学VB两三个月吧。我用VB做了一个程序，然后用 ZProtect 给它加了一个壳(限制使用次数的)，
然后有个网友用了我的程序，居然说查出的木马，我晕，我狂晕，我实在冤枉，别说目前这个水平的我做不出木马，就是能做出，我也不想去干那事，然后我用和他一样的杀毒软件去查我那个程序，结果没查出什么来，无奈，这是怎么回事啊正常,杀毒软件神经了.以前听这里的大侠说，使用了VB中自带的某个控件(具体什么名字我忘了)，会出现内存溢出的情况，内存溢出会不会被报毒？
我怀疑有三种可能使他的杀毒软件报毒：
1、可能是我使用了VB中的某个控件导致的(这我没经验，不知道有没有这个可能)
2、可能是我使用了一款叫黑马的外来按钮控件
3、可能是我使用了那个叫 ZProtect 的加壳软件

前辈们有没有出现过类似的情况呢你的程序都使用了什么控件应当很清楚，不一定是问题，换台电脑试试看还报木马吗小弟用的控件比较单一，除了面板中自带的控件外，我还使用了以下几个：

WebBrowser
CommonDialog
MSHFlexGrid
SSTab
dcButton(中文名叫黑马按钮控件，是外部添加的)
ProgressBar可能就是因为你加了壳的缘故吧，杀软才误报同意是加壳的结果。一般不要用加壳程序给自己的程序加壳，一来不稳定，二来很多杀软会把壳当做病毒或木马处理。
<
明显是壳，如果只是要压缩主程序的话，不要用这种罕见的壳，用UPX或Aspack之类的常见壳就行了。限制使用次数你可以自己做，如果连简单的限制使用次数也做不出来，那你这个程序也没有加壳的价值了。我也遇到过,我从网上下载的一个按钮控件源代码,编译成OCX后,也被认为是木马晕，用aspack压缩一下，也会被当作木马的。
不过我以前写过一个较正常的c/s结构的程序，在编译时就被“卡吧死机”当作木马杀了。恭喜…
随便弄个小程序,试试不加壳或者不加那个按钮控件.一试就知道了啊,还用问…黑马按钮应该不会有问题吧！

你先试一下不加壳、加壳这两种情况有没有区别吧。
黑马按钮应该不会有问题吧！

你先试一下不加壳、加壳这两种情况有没有区别吧。
壳的问题<
看来八成是壳的问题了，呵呵感觉是加壳的原因
欲盖弥彰
呵呵网上那些小白说有毒，不一定就真的有毒。比如有的杀毒软件有主动防御，报警说你这个程序会写注册表啊自动启动啊或者动到系统文件夹里啥东西啊，他们也会一概说是你这东西有毒，反正有东西报警就叫这东西有毒。所以以后收到这种反馈的时候，你要先问清楚一下，不要弹出一个消息框他们说是有毒你也信。<
那是你壳的问题了，特别是像这种自带注册功能的壳，一般都有特殊代码防破解的。我还是建议你将注册功能自己做，要压缩的话用UPX这种大众壳，绝对不会报毒。真的是加壳的问题啊，新下的360杀毒能查出加了壳的那个程序有毒，我也用它去查了下没加过壳的，没毒<
对不会脱壳的人来说，任何壳都是难以破解的。对会脱壳的人来说，脱任何壳只是一点时间问题。我学过一点破解的皮毛，多少了解一点，你如果不想程序被破解的话，最好不要寄希望在壳上。

关于你提的这个壳，我搜索了一下，确实是个反调试功能比较强大的、比较罕见的壳，但同时……也搜到了一定数量的脱壳心得，还有一些高手对其的评价：“我在下载这个加壳软件的时候，杀毒软件就报警了。怕客户认为有毒，所以不用。”如果你的程序真的想卖钱的话，非常重要的一点就是不让报毒，可能你要换种壳了。<

原来如此啊，恍然大悟。。。

也就是说，如果我在软件中加了网址指向我的网站，如果程序没有加壳，别有用心的人会用类似“PE Explorer”的软件将我的软件中我的网址改成他的网站，如果加了壳，他就没那么容易改，首先他得脱壳

谢谢你和大家的帮助呵呵所以你在写程序的时候，还要做个预防，比如
s="http://aaa.bbb.com"这种东西，就很容易被人看到，你可以拐点弯，比如
s=char(XX)&char(YY)&char(ZZ)这样的方式，这样就算他脱了壳，也看不到任何一个字符串，防一般人是够了学一下好有才我也想木马一下他们……代开各行业【増直/鐠通】漂据。
另批发/零售仿真度可达90%以上各品牌香烟，如中华、黄鹤楼1916、芙蓉王、南京95至尊、白沙(和天下)、苏烟、玉溪、利群、双喜、世纪经典等。
如有意，请联系Q：1145553117。手机：13544123356、金先生
<

如何使ACCESS的A列（单价）与B列（数量）自动相乘,结果储存在C列（金额）。

效果如下：

A（单价） B（数量） C（金额）
1、 12 6 72

2、 30 4 120

请懂的朋友写出实现的步骤，谢谢！select 单价, 数量, 单价 * 数量 as 金额 fromupdate 表1 set 金额=单价 * 数量<
<
你的代码在哪里？vb？access？access的查询中？在代码中加入 Prices = Val(Text3.Text) * Val(Text4.Text)

就是当我在Text3输入单价，在Text4中输入数量后，按下“确认购买”按钮后，自动计算出相应的金额并记录在表tb_buy的"Prices"列中！

请问具体的步骤如何?
<

如题，假如我想点击某个点，在不同分辨率下，这个点发生了变化，
我想求个算法，能在任何分辨率下都能指向那个我指定的坐标点。你这个点是像素点还是屏幕坐标点?屏幕坐标点代开各行业【増直/鐠通】漂据。
另批发/零售仿真度可达90%以上各品牌香烟，如中华、黄鹤楼1916、芙蓉王、南京95至尊、白沙(和天下)、苏烟、玉溪、利群、双喜、世纪经典等。
如有意，请联系Q：1145553117。手机：13544123356、金先生