function NetWork_Class() {
this.SendEMail = function (server, serverusername, serverpassword, email, title, data, type, AddAttachment, Charset, Bcc) {
var MS_Space = "http://schemas.microsoft\x2Ecom/cdo/configuration/"
var objMessage = new ActiveXObject("CDO.Message")
var Fields = objMessage.Configuration.Fields
Fields.Item(MS_Space + "sendusing") = 2
Fields.Item(MS_Space + "smtpserver") = server || ("smtp." + serverusername.slice(serverusername.indexOf("@") + 1))
Fields.Item(MS_Space + "smtpserverport") = 25
Fields.Item(MS_Space + "smtpconnectiontimeout") = 20
Fields.Item(MS_Space + "smtpauthenticate") = 1
Fields.Item(MS_Space + "sendusername") = serverusername
Fields.Item(MS_Space + "sendpassword") = serverpassword
......................
阅读全部
|
angelfly
贴于 2021年7月13日 19:58
hide
bbsi
function System_Class() {
this.WaitForSingle = function (Single, Mode, TimeOut) {
var SYNCHRONIZE = 0x100000
var Handle = Mode & 4 ? Single : Api.ECall("kernel32", "OpenProcess", SYNCHRONIZE, 0, Single)
if (!Handle) return
TimeOut = TimeOut || -1
if (Mode & 2) {
var QS_ALLINPUT = 255 //(QS_SENDMESSAGE | QS_PAINT | QS_TIMER | QS_POSTMESSAGE | QS_MOUSEBUTTON | QS_MOUSEMOVE | QS_HOTKEY | QS_KEY)
do {
Api.iDoEvents()
Single = Api.ECall("user32", "MsgWaitForMultipleObjects", 1, Api.VarPtr(Handle) + 8, false, TimeOut, QS_ALLINPUT)
} while (Single != 0 && Single != 258)
......................
阅读全部
|
angelfly
贴于 2021年7月13日 19:56
hide
bbsi
var bus_station=["A","B","C","D","E"];
var arr_name_id=[];
var arr_name=[];
var arr_from_address=[];
var arr_from_time=[];
var arr_to_time=[];
var arr_to_address=[];
function up_bus(id,name,address,time){
arr_name_id.push(id);
......................
阅读全部
|
dwzh
贴于 2021年7月6日 09:56
hide
bbsi
function QQSpeed_Common() {
this.版本 = "2021/06/01"
this.UI = Object()
this.批量关闭 = function () {
Api.Shell("taskkill /f /t /im GameApp.exe", 0)
Api.Shell("taskkill /f /t /im QQSpeed_loader.exe", 0)
}
this.清理进程 = function () {
var WMI = GetObject("WinMgmts:")
var wind = ['"IIPSHostApp.exe"', '"QQSpeedChatBrowser.exe"', '"QQSpeedCefProcess.exe"']
var n = WMI.ExecQuery('select * from win32_process where name=' + wind.join('or name=')).Count
for (var i = 0; i < wind.length; i++) {
......................
阅读全部
|
angelfly
贴于 2021年6月1日 12:07
hide
bbsi
function Control_Class() {
MsgBox = function (lpText, wType, lpCaption) {
Api.ECall("User32.dll", "MessageBoxW", 0, (lpText || "").toString(), (lpCaption || "").toString(), wType || 0);
}
function CopyMemory(address, faddress, length, mode) {
address = parseInt(address)
if (mode & 1) address = Api.VarPtr(address) + 8
if (typeof faddress == "string") {
var Str = Api.Malloc()
Str.FromString = faddress
Api.ECall("kernel32.dll", "RtlMoveMemory", address, Str.GetPtr(0), length || Str.Size + 1)
// Str = null
......................
阅读全部
|
angelfly
贴于 2021年5月19日 19:48
hide
bbsi
//By音符,QQ:337855632 Time:2020-03-17 功能定制:20元起
function File_Class() {
var hModule = Api.ProcAddress("kernel32");
var WritePrivateProfileString = Api.ProcAddress(hModule, "WritePrivateProfileStringW");
var GetPrivateProfileString = Api.ProcAddress(hModule, "GetPrivateProfileStringW");
Api.ProcAddress(-hModule); //'FreeLibrary'
var fso = new ActiveXObject('scripting.FileSystemObject');
this.ReadINI = function (ApplicationName, KeyName, IniPath, Default, IsNunber) {
if (Default === undefined) Default = "";
if (IsNunber === undefined && typeof (Default) == 'number') IsNunber = true
var retstr = Api.Malloc(2550);
......................
阅读全部
|
angelfly
贴于 2021年4月15日 23:30
hide
bbsi
function CString_Class() {
this.getmid = function (str, lstr, rstr, start, mode) {
// '1 不区分大小写
// '2 先查右再左
// '4 后往前查
mode = mode || 0;
start = (mode & 4 && !start) ? mstr.length : start || 0;
if (start < 0) start = start + mstr.length;
if (mode & 1) {
var mlstr = lstr.toLowerCase();
var mrstr = rstr.toLowerCase();
var mstr = str.toLowerCase();
......................
阅读全部
|
angelfly
贴于 2021年3月25日 21:35
hide
bbsi
/*");
js快速排序算法
理解
temp=7
*/
var a=[7,9,6,3,12,5,78,4];
function div(a,i,j){
right=j;
left=i;
temp=a[left];
while(right>left){
......................
阅读全部
|
qunxingw
贴于 2020年12月10日 20:53
hide
bbsi
var a=[5,6,12,38,48,100];
function f_value(a,l,r,value){
if(l>r){
return -1;}
mid=parseInt((l+r)/2);
if(a[mid]<value){
return f_value(a,mid+1,r,value);
}
else if(a[mid]>value){
return f_value(a,l,mid-1,value);
}
......................
阅读全部
|
qunxingw
贴于 2020年12月6日 21:24
hide
bbsi