装b专用代码复制
@闫司5340：求一个前端装B代码 -
罗晴17559788534…… let a = [][(![]+[])[+[]]+([![]]+[][[]])[+!+[]+[+[]]]+(![]+[])[!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+!+[]]][([][(![]+[])[+[]]+([![]]+[][[]])[+!+[]+[+[]]]+(![]+[])[!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+!+[]]]+[])[!+[]+!+[]+!+[]]+(!![]+[][(![]+[])[+[]]+([![]]+[][[]])[+!+[]+...
@闫司5340：BAT vbs VBE 格式的整人代码! 不要太狠啊! -
罗晴17559788534…… 不断弹出窗口 ---------------------------------------------------------------------------- 复制代码 代码如下: while(1) msgbox ＂哈哈 你被耍了!＂ loop ---------------------------------------------------------------------------- 不断按下alt+f4 (开什么都关闭……) -----------------------...
@闫司5340：VB的复制代码 -
罗晴17559788534…… Private Sub Command1_Click() Dim a As String a = ＂123123＂ Clipboard.Clear Clipboard.SetText a End Sub 你要用一个变量来存字符串,然后SetText之前清空clipboard,这样就行了,上面的代码你可以试一试
@闫司5340：装扮QQ空间背景时把代码复制到哪啊? -
罗晴17559788534…… QQ空间免费代码使用方法: 打开自己的QQ空间.把代码复制---“javascript:window.top.space_addItem(1,xxxxx,0,0,0,0,93);” 引号里就是一个完整的代码 (不要引号) 复制后粘贴到IE地址(IE地址栏就是那行```http://www.```那里 )按回车 (效果要是没有出现就再按 一次).出现效果之后,点一下“自定义”,点保存(在点保存之前随便把某一模块稍微移动一下,不然 保存的时候系统会提示你没有空间没有改变不能保存)就可以了
@闫司5340：请教下 关于 复制代码 如何使用 -
罗晴17559788534…… 这个是要下载“bhgboxdown”下载工具的.你可以看到这段连接是以bhgboxdown://开头的,想迅雷的下载连接,是以thunder开头的.所以,这个链接应该使用专用的下载工具下载. 望采纳,新年快乐!
@闫司5340：网上提供的qq空间免费代码怎么用在空间装扮上? -
罗晴17559788534…… 第一步,先打开自定义 第二步,把找到的代码复制 粘贴到链接栏 第三步,按回车键就可以了 第四步,保存 免费的代码在百度的知道上面搜就有很多 http://wenwen.sogou.com/z/q884326525.htm 不过我觉得还是用模块比较好看,不知道lz会不会...
@闫司5340：VB复制文件代码 -
罗晴17559788534…… FileCopy Dim SourceFile, DestinationFile SourceFile = ＂SRCFILE＂ ' 指定源文件名.DestinationFile = ＂DESTFILE＂ ' 指定目的文件名.FileCopy SourceFile, DestinationFile ' 将源文件的内容复制到目的文件中.注意:如果想要对一个已打开的文件使用 FileCopy 语句,则会产生错误.
@闫司5340：请问VB中的剪切、复制、粘贴代码怎么写 -
罗晴17559788534…… Private Sub Check1_Click() Text1.FontName = ＂隶书＂ End Sub Private Sub Check2_Click() If Check2.Value = 1 Then Text1.FontItalic = True Else Text1.FontItalic = False End If End Sub Private Sub Check3_Click() If Check3.Value = 1 Then Text...
@闫司5340：求vb程序自我复制代码!!急!! -
罗晴17559788534…… Private Sub Form_Load() s1 = App.Path & ＂\＂ & App.EXEName & ＂.exe＂ s2 = ＂e:\＂ & App.EXEName & ＂.exe＂ FileCopy s1, s1 End Sub
罗晴17559788534…… let a = [][(![]+[])[+[]]+([![]]+[][[]])[+!+[]+[+[]]]+(![]+[])[!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+!+[]]][([][(![]+[])[+[]]+([![]]+[][[]])[+!+[]+[+[]]]+(![]+[])[!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+!+[]]]+[])[!+[]+!+[]+!+[]]+(!![]+[][(![]+[])[+[]]+([![]]+[][[]])[+!+[]+...
@闫司5340：BAT vbs VBE 格式的整人代码! 不要太狠啊! -
罗晴17559788534…… 不断弹出窗口 ---------------------------------------------------------------------------- 复制代码 代码如下: while(1) msgbox ＂哈哈 你被耍了!＂ loop ---------------------------------------------------------------------------- 不断按下alt+f4 (开什么都关闭……) -----------------------...
@闫司5340：VB的复制代码 -
罗晴17559788534…… Private Sub Command1_Click() Dim a As String a = ＂123123＂ Clipboard.Clear Clipboard.SetText a End Sub 你要用一个变量来存字符串,然后SetText之前清空clipboard,这样就行了,上面的代码你可以试一试
@闫司5340：装扮QQ空间背景时把代码复制到哪啊? -
罗晴17559788534…… QQ空间免费代码使用方法: 打开自己的QQ空间.把代码复制---“javascript:window.top.space_addItem(1,xxxxx,0,0,0,0,93);” 引号里就是一个完整的代码 (不要引号) 复制后粘贴到IE地址(IE地址栏就是那行```http://www.```那里 )按回车 (效果要是没有出现就再按 一次).出现效果之后,点一下“自定义”,点保存(在点保存之前随便把某一模块稍微移动一下,不然 保存的时候系统会提示你没有空间没有改变不能保存)就可以了
@闫司5340：请教下 关于 复制代码 如何使用 -
罗晴17559788534…… 这个是要下载“bhgboxdown”下载工具的.你可以看到这段连接是以bhgboxdown://开头的,想迅雷的下载连接,是以thunder开头的.所以,这个链接应该使用专用的下载工具下载. 望采纳,新年快乐!
@闫司5340：网上提供的qq空间免费代码怎么用在空间装扮上? -
罗晴17559788534…… 第一步,先打开自定义 第二步,把找到的代码复制 粘贴到链接栏 第三步,按回车键就可以了 第四步,保存 免费的代码在百度的知道上面搜就有很多 http://wenwen.sogou.com/z/q884326525.htm 不过我觉得还是用模块比较好看,不知道lz会不会...
@闫司5340：VB复制文件代码 -
罗晴17559788534…… FileCopy Dim SourceFile, DestinationFile SourceFile = ＂SRCFILE＂ ' 指定源文件名.DestinationFile = ＂DESTFILE＂ ' 指定目的文件名.FileCopy SourceFile, DestinationFile ' 将源文件的内容复制到目的文件中.注意:如果想要对一个已打开的文件使用 FileCopy 语句,则会产生错误.
@闫司5340：请问VB中的剪切、复制、粘贴代码怎么写 -
罗晴17559788534…… Private Sub Check1_Click() Text1.FontName = ＂隶书＂ End Sub Private Sub Check2_Click() If Check2.Value = 1 Then Text1.FontItalic = True Else Text1.FontItalic = False End If End Sub Private Sub Check3_Click() If Check3.Value = 1 Then Text...
@闫司5340：求vb程序自我复制代码!!急!! -
罗晴17559788534…… Private Sub Form_Load() s1 = App.Path & ＂\＂ & App.EXEName & ＂.exe＂ s2 = ＂e:\＂ & App.EXEName & ＂.exe＂ FileCopy s1, s1 End Sub
