用于自动许可的 VB 程序，查找 VB 许可程序

10分，我只想得到一个程序哈哈。

private sub command1_click()randomize val(mid(time$, 4, 2) +mid(time$, 7, 2))

dim i as integer

dim j as integer

dim k as integer '循环变量。

dim m(4) as string '设计和颜色。

dim a(13, 4) as integer '

dim b(13, 4) as stringdim n(4) '每个人手中的牌数 - 计数器。

m(1) = "a": m(2) = "b": m(3) = "c": m(4) = "d"

交易。 for i = 1 to 13

for j = 1 to 4

x = int(rnd * 13) +1

y = int(rnd * 4) +1

do while a(x, y) <0

x = int(rnd * 13) +1

y = int(rnd * 4) +1

loopa(x, y) = j

next j

next i

为打印的内容赋值。

for k = 1 to 4

n(k) = 1

next k

for i = 1 to 4

for j = 1 to 13

l = a(j, i)

b(n(l), l) = m(i) +str(j)n(l) = n(l) +1

next j

next i

打印输出。 tab(12); "no. 1"; tab(24); "no. 2"; tab(36); "no. 3"; tab(48); "no. 4"

for i = 1 to 13

for j = 1 to 4

tab(12 * j); b(i, j);

next j

next i

end sub

方法 1：将程序的完整路径名写入注册表中的 local-ms-windows-currentversion-run。

方法 2：将您的程序放在启动程序菜单下。

方法三：写程序的完整路径名。

dim sindex as integerprivate sub combo1_change()= * 1000 '将定时器控件的间隔时间设置为组合框中的值 * 1000

end sub

private sub command1_click()= true '定时器控制可用。

end sub

private sub command2_click()= false '不可用。

end sub

private sub command3_click()'将 text1 控件内容添加到列表中。

1) = true '选择最后一项。

end sub

private sub command4_click()if > 0 then '如果列表有选项，则 - 1） = true'选择最后一项。

然后删除所选内容。

end if

end sub

private sub form_load()sindex = -1

end sub

private sub timer1_timer()if sindex > then '如果变量值大于列表选项的数量。

sindex = -1

exit sub '退出计时器进程。

elsesindex = sindex + 1 '变量加起来最多 1sendkeys'发送与列表对应的控制选项列表 if = true then'如果选中单选框 1，则将回车器发送到 sendkeys""

elseif = true then '如果在单个选项中选择 2。 然后是 sendkeys"%" '然后发送 alt + selseif = true

sendkeys "^" 'Ctrl + Enter 结束 If

end if

end sub

现在很难，因为邮局已经设置了验证。 你可能无法获得这一分。

它并不难运行，但您想避免被安全软件检测到吗？ 如果杀死软太难，这是这里唯一的技术问题......

没办法帮你搞定这个，这个东西自己编程很麻烦，不是说说就能做到的，要想学还是要按部就班地去做。

在注册表中"hkey_local_machine\software\microsoft\windows\currentversion\run"在项目中填写您的程序路径，它将自动运行。 隐藏其他图标是什么意思，我不明白。 隐藏本身可以通过调用 API 来完成。

1.下次开机会自动运行，可以修改注册表或使用注册表修改程序进行修改;

2.自隐，比较简单，让它运行，但在后台运行，不显示表单;

3.并继续隐藏其他图标，这是什么意思？ 是所有的图标吗？

解释清楚，我可以帮你做。

开机时自动运行，并继续隐藏其他设备。

发送到指定的邮箱是可以的，但如果是电脑，我告诉我如何发送到指定的文件就有点麻烦了。 发送指定的文件，就跟把附件发送到邮箱一样，既然思路这么简单就可以直接用jmail组件发邮件了，网上也有这个组件发送**。

使用 Autoit，您可以编写一个脚本来获取窗口，然后单击其中的下一步。

该脚本可以编译成一个 exe 来运行。 Autoit还可以完成IP之类的自动设置，并且有很多光盘是由使用它的软件自动安装的。

房东的表情有问题，容易让人暧昧。

如果您使用 VB 打开另一个安装程序。

只管去做。

例如：shall"d:\"您可以在 D 盘下打开安装程序。

这可以通过发送键来实现。

shell "在此处填写安装程序地址"

sendkeys "%(n)",true

sendkeys "%(n)",true

sendkeys "%(n)",true

.如果这不起作用，请将 true 更改为 false。

教你用 Visual Basic 制作安装程序。

shell 函数：

shell "驱动器号目录文件"

这通常是在命令按钮 commonbutton 中完成的

机器一般都配备RAR，你只需用RAR做一个自解压，然后换个图标就行了。 这就是我们在学校比赛时我所做的。