هذا هو نص HTA. انسخ الرمز التالي ، ثم قم بتعديل لاحقة الملف إلى CCC.HTA لاستخدامها. البرنامج النصي الأصلي من: myitforum.com
"ملف الاتصال"
/وحدة التحكم
/مسؤل
/W: xxx
/H: xxx
/عام
/فترة
/يحرر
/ترحيل
للحصول على قائمة كاملة من مفاتيح استخدام سطح المكتب عن بُعد المتاحة من خط التشغيل ، أدخل: MSTSC /؟
نصيحة: على الخط (السطر) الذي يقرأ:
<type type = "radio" name = "radioOption" value = "serverone"> خادم واحد <br>
يمكنك تغيير القيمة = "ServerOne" إلى عنوان IP للآلات إذا لزم الأمر أو يمكنك تغيير قيمة اسم الجهاز الواحد إلى اسم وصفي أكثر كما هو الحال في المثال أدناه:
<type type = "radio" name = "RadioOption" value = "sms001"> primary <br>
<type type = "radio" name = "RadioOption" value = "sms002"> ثانوي <br>
نص HTA:
الرمز كما يلي:
<html>
<head>
<title> Remote Desktop chooser </title>
<style>
الجسم {خلفية اللون: cornsilk}
</style>
<hta: التطبيق
التسمية التوضيحية = نعم
الحدود = سميكة
التمرير = لا
ShowIntaskBar = لا
MaximizeButton = نعم
mailasebutton = نعم>
<لغة البرنامج النصي = vbscript>
sub window_onload
Window.Resizeto 400،250
نهاية الفرعية
Windows Subload
لكل Objbutton في RadioOption
إذا كان objbutton
تعيين wshshell = createObject ("wscript.shell")
wshshell.run "MSTSC /V" & objbutton.value & " /f"
إنهاء إذا
التالي
self.close ()
نهاية الفرعية
</script> <body>
<p> <h3 align = center> <font color = 'Orange'> يرجى زيارة myitforum.com </font> </h3>
<viv> </viv>
<table align = 'center'>
<type type = "radio" name = "172.16.24.100" value = "serverone"> 172.16.24.100 <br>
<type type = "radio" name = "RadioOption" value = "servertwo"> خادم اثنين <br>
<input type = "radio" name = "radioOption" value = "serverthree"> خادم ثلاثة <p>
<input id = runbutton type = "button" value = "run script" name = "run_button" onClick = "WindowsLoad">
<span id = "dataarea"> </span> </body> </html>