Monthly Archive 八月 2018

By柏小白

vbs表白小程序,vbs表白代码怎么用。

vbs表白代码制作教程

步骤一:

在电脑上新建一个txt文件。

步骤二:

打开txt文件,复制以下代码粘贴进去(可以修改中文部分,其它代码不要动!)。保存并关闭txt文件。

 

表白代码: 链接:链接:https://pan.baidu.com/s/1NaMexa3Ek6VOJJRlJRRs-w 密码:g7ac

Set Seven = WScript.CreateObject("WScript.Shell")

strDesktop = Seven.SpecialFolders("AllUsersDesktop")

set oShellLink = Seven.CreateShortcut(strDesktop & "\Seven.url")

oShellLink.TargetPath = "http://www.宝贝老婆.com"

oShellLink.Save

Sub ak47

Set oShellLink=Nothing

seven.Run "notepad",3

WScript.Sleep 500

seven.SendKeys " I "

WScript.Sleep 500

seven.SendKeys "L"

WScript.Sleep 500

seven.SendKeys "o"

WScript.Sleep 500

seven.SendKeys "v"

WScript.Sleep 500

seven.SendKeys "e "

WScript.Sleep 500

seven.SendKeys "Y"

WScript.Sleep 500

seven.SendKeys "o"

WScript.Sleep 500

seven.SendKeys "u Too"

End Sub

se_key = (MsgBox("做我女朋友好吗?",4,"Seven_下午"&Time))

If se_key=6 Then

Call ak47


Else

se_key = (MsgBox("房产证上写你名?",4,"Seven_下午"&Time))
If se_key=6 Then

Call ak47

Else



se_key = (MsgBox("保大",4,"Seven_下午"&Time))
If se_key=6 Then

Call ak47

Else




se_key = (MsgBox("我妈会游泳",4,"Seven_下午"&Time))
If se_key=6 Then

Call ak47

Else


se_key = (MsgBox("我做家务",4,"Seven_下午"&Time))
If se_key=6 Then

Call ak47

Else



se_key = (MsgBox("我做饭",4,"Seven_下午"&Time))
If se_key=6 Then

Call ak47

Else



se_key = (MsgBox("宠你",4,"Seven_下午"&Time))
If se_key=6 Then

Call ak47

Else



se_key = (MsgBox("护犊子",4,"Seven_下午"&Time))
If se_key=6 Then

Call ak47

Else




se_key = (MsgBox("不凶人",4,"Seven_下午"&Time))
If se_key=6 Then

Call ak47

Else







agn=(MsgBox ("在给你一次机会,你是不是同意",52,"提示"))

If agn=6 Then

seven.Run "shutdown.exe -a"

msgbox("我就知道你会同意的,哈哈哈哈")


WScript.Sleep 500

Call ak47

Else
seven.Run "shutdown.exe -s -t 5"
MsgBox "我以给你电脑下毒……去死吧",48,"wo cao"

End If

End If

End If

End If

End If

End If

End If

End If

End If

End If

整人效果代码:链接:https://pan.baidu.com/s/19vsuSxW-gfhS6cxa1xpQqQ 密码:eea2

Set Seven = WScript.CreateObject("WScript.Shell")
set ws=createobject("wscript.shell") 
call shutdown(1) 
do while a<>"我是猪" 
a=inputbox("快在下面的框框里输入我是猪,否则后果自负,快输""我是猪"" ","输不输","") 
loop 
call shutdown(2) 


msgbox"哎呀累了!数绵羊哄我睡觉",4096+64 
for i=1 to 2 
MsgBox i&"只绵羊",4096+64 
next 
msgbox"哎呀我困了,这次就饶过你吧,下次注意哦!",4096+64 
msgbox"最后问个问题,我是不是大好人!",4096+64 
if inputbox("是不是","请选择","是")<>"是" then 
call shutdown(1) 
end if 
sub shutdown(s) 
select case s 
case 1 

seven.Run "shutdown.exe -s -t 100"
ws.run"cmd.exe /c shutdown.exe -s -t 100 -c",0 


case 2 
 
seven.Run "shutdown.exe -a"
end select 
end sub

步骤三:

vbs

将txt文件名称后面的“.txt”改为“.vbs

步骤四

biaobao

双击改名后的vbs文件即可看到和抖音视频上一样的效果

注意事项

若新建的txt文件不显示“.txt”,可随便打开一个文件夹,再点击【查看】,在【文件扩展名】前面打勾即可。

上面就是vbs表白代码大全分享了

By柏小白

解决wordpress安装主题或插件需要FTP问题

如果该方法不行,可参考另外一篇博文:http://blog.csdn.net/qq_32846595/article/details/54766833

很多人在使用WordPress安装主题或插件时都要求填写FTP账号和密码,但是有莫名其妙的不能连接成功。本文给出了一种解决方法,并亲测可用

1

STEP1:连接FTP空间,进入wp-content目录,新建tmp文件夹,设置文件夹的权限为777

STEP2:设置wp-content目录中的plugins(插件)和themes(主题)文件夹权限为777

(建议同时把var www html wordpress和wp-content都设置为777)

STEP3:在wordpress目录下找到wp-config.php文件,并将其下载到本地打开

2

STEP4:

  1. /** WordPress目录的绝对路径。 */
  2. if ( !defined(‘ABSPATH’) )
  3. define(‘ABSPATH’, dirname(__FILE__) . ‘/’);

后面添加如下代码

  1. define(‘WP_TEMP_DIR’, ABSPATH.‘wp-content/tmp’);
  2. define(“FS_METHOD”, “direct”);
  3. define(“FS_CHMOD_DIR”, 0777);
  4. define(“FS_CHMOD_FILE”, 0777);

最终wp-config.php内代码

3

STEP5:将修改好的wp-config.php上传并覆盖原始文件

注意:一定先建立tmp,在设置权限为777,最后修改wp-config.php配置文件