佛系糖果的博客

行到水穷处，坐看云起时

0%

发表于 分类于 ， 阅读次数： Valine：
本文字数： 3.4k 阅读时长 ≈ 3 分钟 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
::显示或者隐藏命令 //ECHO [ON | OFF]
@ ECHO OFF
REM 修复电脑磁盘图标。
::设置颜色为 淡蓝色背景色，白色前景色
COLOR 9F
::设置运行窗口标题
TITLE XP 、Win7电脑磁盘图标--修复
::提示以管理员身份运行
ECHO ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
ECHO ☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆
ECHO ☆                                                                          ☆
ECHO ☆ 为了能够成功修复，请使用管理员身份运行  [鼠标右键单击--以管理员身份运行] ☆
ECHO ☆                                                                          ☆
ECHO ☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆

::检测系统版本，如果需要并跳转到相应的系统标签处进行执行
VER|FINDSTR /I "5.1" && GOTO XP || GOTO Win7
:: XP 系统的方案
:XP
::说明可能导致此问题的相关原因
ECHO 主要症状：
ECHO 磁盘图标显示未知或者为其他图标。
ECHO 1.可能由于注册表异常导致。
ECHO 2.相关服务未启用。
ECHO 3.设置了磁盘分区的Antorun.inf。
ECHO 4.更改了shell32.dll中分区图标，或者shell32.dll文件损坏。
ECHO 5.缓存过旧导致的异常。
ECHO =====================================
::信息提示并作出选择
::暂不使用此句 CHOICE /C YN /T 10 /D Y /M "您好，键入 Y 执行修复，N 退出，如未操作，默认十秒后自动执行修复。
set /P IS=您好，键入 Y 执行修复，N 退出。(不区分大小写，输入错误将直接退出) 输入后回车
::判断输入的字符
::暂不使用此句 IF ERRORLEVEL 2 (EXIT) ELSE (GOTO R)
IF /I %IS% EQU Y (GOTO R) ELSE (EXIT)
:: Win7 系统的方案
:Win7
::说明可能导致此问题的相关原因
ECHO 主要症状：
ECHO.
ECHO 磁盘图标显示未知或者为其他图标。
ECHO.
ECHO 1.可能由于注册表异常导致。
ECHO.
ECHO 2.相关服务未启用。
ECHO.
ECHO 3.设置了磁盘分区的Antorun.inf。
ECHO.
ECHO 4.更改了shell32.dll中分区图标，或者shell32.dll文件损坏。
ECHO.
ECHO 5.缓存过旧导致的异常。
ECHO =====================================
::信息提示并作出选择
CHOICE /C YN /T 10 /D Y /M "您好，键入 Y 执行修复，N 退出，如未操作，默认十秒后自动执行修复。
::暂不使用此句 set /P IS=您好，键入 Y 执行修复，N 退出。(不区分大小写，输入错误将直接退出) 输入后回车
::判断输入的字符
IF ERRORLEVEL 2 (EXIT) ELSE (GOTO R)
::暂不使用此句 IF /I %IS% EQU Y (GOTO R) ELSE (EXIT)

::标签R
:R
ECHO.
ECHO /////////////////////////////////
ECHO //如遇到安全软件拦截请解除拦截。/
ECHO /////////////////////////////////

::首先执行备份至临时目录
ECHO.
ECHO ■■■■ 备份autorun.inf文件 ■■■■
ECHO ┌────────────┐
FOR %%i IN (
C D E F G H I J K L M N O P Q R S T U V W X Y Z) DO IF EXIST "%%i:\\autorun.inf" (
COPY /Y %%i:\\autorun.inf %TEMP%\\%%iautorun.inf) ELSE (
ECHO 未备份 %%i:盘autorun.inf 文件)
ECHO └────────────┘
ECHO %TEMP%
ECHO ☆☆autorun.inf备份至临时目录☆☆

ECHO.
ECHO ■■■■ 删除autorun.inf文件 ■■■■
ECHO ┌────────────┐
FOR %%i IN (
C D E F G H I J K L M N O P Q R S T U V W X Y Z) DO IF EXIST "%%i:\\autorun.inf" (
DEL /F /Q /A %%i:\\autorun.inf) ELSE (
ECHO %%i:盘未发现autorun.inf 文件)
ECHO └────────────┘
ECHO ☆☆autorun.inf文件删除完毕☆☆

ECHO.
ECHO ■■■■ 备份注册表 ■■■■
ECHO ┌────────────┐
REG EXPORT HKLM\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Explorer\\DriveIcons %TEMP%\\HKLM.DriveIcons.reg /y
ECHO └────────────┘
ECHO ☆☆注册表备份完毕☆☆

ECHO.
ECHO ■■■■ 清理注册表 ■■■■
ECHO ┌────────────┐
REG DELETE "HKLM\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Explorer\\DriveIcons" /f
ECHO └────────────┘
ECHO ☆☆注册表清理完毕☆☆

ECHO.
ECHO ■■■■ 重启 ShellHWDetection 服务 ■■■■
ECHO ┌────────────┐
::NET START [service]
::NET STOP [service]
::sc config [service] start= demand     //手动
::sc config [service] start= auto       //自动
::sc config [service] start= disabled //禁用
::sc start [service]
::sc stop   [service]
net start ShellHWDetection
sc config ShellHWDetection start= auto
sc start ShellHWDetection
ECHO └────────────┘
ECHO ☆☆ShellHWDetection 服务启动完毕☆☆

::判断图标缓存文件 IconCache.db 是否存在 ，是则删除文件
IF EXIST "%USERPROFILE%\\AppData\\Local\\IconCache.db" (DEL /F /Q /A "%USERPROFILE%\\AppData\\Local\\IconCache.db") ELSE (ECHO 未发现图标缓存文件)
IF EXIST "%USERPROFILE%\\LocalSettings\\Application Data\\IconCache.db" (DEL /F /Q /A "%USERPROFILE%\\LocalSettings\\Application Data\\IconCache.db") ELSE (ECHO 未发现图标缓存文件)
::重启 explorer 进程
TASKKILL /IM explorer.exe /F
start "" "explorer.exe"

ECHO.

ECHO ┌────────────┐
ECHO 如问题没有有效解决可尝试
ECHO 右键单击 “计算机” - “管理” - “磁盘管理”中更改磁盘的盘符来解决。
ECHO └────────────┘


ECHO.
::等待按键继续
ECHO .......................................................................
echo 操作完毕,如果提示成功并且还存在问题建议重启计算机后查看是否已经修复.
pause>nul

发表于 分类于 阅读次数： Valine：
本文字数： 221 阅读时长 ≈ 1 分钟

软件名称：18位身份证信息解析
软件介绍：解析18位身份证号码，地址区域信息
软件大小：2MB
下载链接：https://cdn.fesugar.com/download/Identity Search.zip
发布时间：2013/3
新增功能： 1. 对于星座进行个性分析
宣传版本号：1.0.0.6
支持操作系统（含多少位）： Windows 7 SP1, Windows 8.1, Windows 10 （ 32&64）
语言种类：中文简体
是否收费：免费软件
软件截图：

发表于 分类于 阅读次数： Valine：
本文字数： 306 阅读时长 ≈ 1 分钟

软件名称：鼠标动作录制工具

软件介绍：鼠标点击记录回放工具（可监控鼠标左键、鼠标中间键、鼠标右键）
软件大小：5.7MB
下载链接：https://cdn.fesugar.com/download/MouseRec.v1.2.EXE
发布时间：2019/2/18
新增功能：

  1. 优化页面布局，引用metro风格组件，aero 效果
  2. 修复首次回放时等待时间异常**

宣传版本号：1.2.0.3

支持操作系统（含多少位）： Windows 7 SP1, Windows 8.1, Windows 10 （ 32&64）
语言种类：中文简体
是否收费：免费软件
软件截图：
**

项目地址

https://github.com/fesugar/Recording

发表于 分类于 阅读次数： Valine：
本文字数： 117 阅读时长 ≈ 1 分钟

Split 用法

1
2
3
4
5
6
Dim fengge() As String
Dim str1 As String
str1 = "ABC,DEF"
fengge = Split(str1, ",")
msgbox(fengge(0))
msgbox(fengge(1))

发表于 分类于 阅读次数： Valine：
本文字数： 151 阅读时长 ≈ 1 分钟

循环输出 DataGridView 内容

1
2
3
4
5
6
Dim i, j As Integer
For i = 0 To DataGridView1.RowCount - 1
	For j = 0 To DataGridView1.ColumnCount - 1
		MsgBox(DataGridView1.Item(j, i).Value)
	Next
Next

发表于 分类于 阅读次数： Valine：
本文字数： 234 阅读时长 ≈ 1 分钟

下面演示在多线程情况下为Label控件赋值值

1
2
3
4
5
6
7
8
9
10
11
12
Delegate Sub Gxdjs(data As String) '定义委托

Private Sub Djs(n As String)
    Me.Invoke(New Gxdjs(AddressOf Cdjs), n) '用Invoke跨线程更新UI
End Sub

Private Sub Cdjs(data As String) '这里要和委托定义时的参数保持一致
    Label5.Text = data
End Sub

'线程中使用
Djs("3")

发表于 分类于 阅读次数： Valine：
本文字数： 510 阅读时长 ≈ 1 分钟 
1
2
3
4
5
6
7
8
9
10
Declare Sub MouseEvent Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Const MOUSEEVENTF_LEFTDOWN = &H2 '模拟鼠标左键按下
Public Const MOUSEEVENTF_LEFTUP = &H4 '模拟鼠标左键释放
Public Const MOUSEEVENTF_MIDDLEDOWN = &H20 '模拟鼠标中间键按下
Public Const MOUSEEVENTF_MIDDLEUP = &H40 '模拟鼠标中间键释放
Public Const MOUSEEVENTF_RIGHTDOWN = &H8 '模拟鼠标右键按下
Public Const MOUSEEVENTF_RIGHTUP = &H10 '模拟鼠标右键释放
Public Const MOUSEEVENTF_MOVE = &H1 '模拟鼠标指针移动
  
MouseEvent(MOUSEEVENTF_LEFTDOWN, X, Y, 0, 0)

发表于 分类于 阅读次数： Valine：
本文字数： 291 阅读时长 ≈ 1 分钟 
1
2
3
4
5
6
7
8
9
On Error Resume Next
strComputer = "."
strSerialNumber = 0
Set objWMIService = GetObject("winmgmts:\\\" & strComputer & "\\root\\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_BIOS",,48)
For Each objItem in colItems
    strSerialNumber = objItem.SerialNumber
Next
WScript.Echo strSerialNumber

发表于 分类于 阅读次数： Valine：
本文字数： 298 阅读时长 ≈ 1 分钟 
1
2
3
4
5
6
7
8
9
10
11
12
set oShell = wscript.CreateObject("WScript.shell")
QueryValue = ReadReg("HKLM\\HARDWARE\\DESCRIPTION\\SYSTEM\\BIOS\\SystemSKU")

WScript.Echo QueryValue


Function ReadReg(RegPath)
     Dim objRegistry, Key
     Set objRegistry = CreateObject("Wscript.shell")
     Key = objRegistry.RegRead(RegPath)
     ReadReg = Key
End Function

发表于 分类于 ， 阅读次数： Valine：
本文字数： 865 阅读时长 ≈ 1 分钟

CMD 脚本加参数运行示例

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
@echo off
SET DIR=%~dp0%
SET ARGS=%*
if NOT '%1'=='' SET ARGS=%ARGS:"=\\"%
if '%1'=='/?' goto usage
if '%1'=='-?' goto usage
if '%1'=='?' goto usage
if '%1'=='/help' goto usage
if '%1'=='help' goto usage

@PowerShell -NonInteractive -NoProfile -ExecutionPolicy Bypass -Command ^
 "& Import-Module '%DIR%..\\Pester.psm1';  & { Invoke-Pester -EnableExit %ARGS%}"

goto finish
:usage
if NOT '%2'=='' goto help

echo To run pester for tests, just call pester or runtests with no arguments
echo.
echo Example: pester
echo.
echo For Detailed help information, call pester help with a help topic. See
echo help topic about_Pester for a list of all topics at the end
echo.
echo Example: pester help about_Pester
echo.
goto finish

:help
@PowerShell -NonInteractive -NoProfile -ExecutionPolicy Bypass -Command ^
  "& Import-Module '%DIR%..\\Pester.psm1'; & { Get-Help %2}"

:finish
exit /B %errorlevel%