技术论坛

 一些常用的脚本

返回主题列表
作者 主题
迷失的梨
奇侠

经验值:6606
发帖数:217
精华帖:3
楼主    2019-02-26 10:59:47
主题:一些常用的脚本

1、一键启停(C脚本)

 BOOL AA;

  AA = ! GetTagBit("变量");

  SetTagBit("变量",(short)AA);

2、屏蔽热键(C脚本)

#include "apdefap.h"

void OnClick(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)

{


#pragma option(mbcs)


#pragma code ("ALMXGINA.Dll")

//BOOL GetXGinaValue (unsigned int fFlag, LPVOID pBfr, DWORD dwBfrSize);

BOOL SetXGinaValue (unsigned int fFlag, LPVOID pValue, DWORD dwBfrSize);

#pragma code () 

//  XGINA_ALLOW_SHUTDOWN    1

// XGINA_ALLOW_LOGOUT      2

// XGINA_ALLOW_CTL_ALT_DEL 3

// XGINA_ALLOW_CTL_ESC     4

// XGINA_ALLOW_ALT_ESC     5

// XGINA_ALLOW_ALT_TAB     6

BOOL bEnable = FALSE;

SetXGinaValue (3, &bEnable, sizeof(bEnable));

SetXGinaValue (4, &bEnable, sizeof(bEnable));

SetXGinaValue (5, &bEnable, sizeof(bEnable));

SetXGinaValue (6, &bEnable, sizeof(bEnable));

}

3、解锁热键(C脚本)

#include "apdefap.h"

void OnClick(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)

{


#pragma code ("ALMXGINA.Dll")

//BOOL GetXGinaValue (unsigned int fFlag, LPVOID pBfr, DWORD dwBfrSize);

BOOL SetXGinaValue (unsigned int fFlag, LPVOID pValue, DWORD dwBfrSize);

#pragma code () 

//  XGINA_ALLOW_SHUTDOWN    1

// XGINA_ALLOW_LOGOUT      2

// XGINA_ALLOW_CTL_ALT_DEL 3

// XGINA_ALLOW_CTL_ESC     4

// XGINA_ALLOW_ALT_ESC     5

// XGINA_ALLOW_ALT_TAB     6

BOOL bEnable = TRUE;

SetXGinaValue (3, &bEnable, sizeof(bEnable));

SetXGinaValue (4, &bEnable, sizeof(bEnable));

SetXGinaValue (5, &bEnable, sizeof(bEnable));

SetXGinaValue (6, &bEnable, sizeof(bEnable));

}

4、按钮登陆用户名密码(C脚本)

#pragma option(mbcs)

#pragma code ("useadmin.dll")

#include "PWRT_api.h"

#pragma code()


SetTagChar("@CurrentUser","用户名"); //Return-Type: BOOL 

SetTagChar("logintest","用户名"); //Return-Type: BOOL 


PWRTLogout();

PWRTSilentLogin ( GetTagChar("logintest"),"密码");

5、修改系统时间(VBS脚本)

Dim wishshell

Set wishshell=Createobject("ws cript.shell")

wishshell.Run "control.exe timedate.cpl,,0"


有志者事竟成~~~
您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。