Κατ'αρχάς συγγνώμη εάν ποστάρω σε λάθος κατηγορία.
Αναπτύσσω μια μικροεφαρμογή για τα Vista και έχω μπερδευτεί με την χρήση της VBscript. Το πρόγραμμα ως ιστοσελίδα δουλεύει αλλά δεν το δέχονται επειδή είναι μη ασφαλές. Υποθέτω πως πρέπει να κάνω μερικές μετατροπές με ActiveX αλλά δεν έχω ιδέα. Αν μπορεί κάποιος να με βοηθήσει θα του είμαι υπόχρεος.
Δεν παραθέτω το πρόγραμμα όπως είναι. Άλλαξα μερικές ονομασίες και μερικές λεπτομέρειες και δυστυχώς δεν δουλεύει, όμως νομίζω είναι ενδεικτικό.
<html>
<head>
<title>Τίτλος</title>
<style>
body{width:130;height:200}
</style>
</head>
<script language="VBScript">
Sub RunSub
dim a
a = form1.text1.value
dim b
b= ""
dim c(2)
dim d(2)
dim e
c(0) = "a"
c(1) = "b"
d(0) = "a"
d(1) = "b"
If a = "" Then
MsgBox("....")
Else
Dim i
i = 0
Dim safe
Dim safe_count
safe_count = 0
Dim temp
temp = ""
safe = temp
Do Until temp = a Or safe_count > 2
If a< temp & c(i) Then
b = b & d(i - 1)
temp = temp & c (i - 1)
i = 143
ElseIf i = 143 And a > temp & (c(i) Or a = temp & c(i)) Then
b = b & d(i)
temp = temp & c(i)
End If
i = i + 1
If i = 144 Then
i = 0
If safe = temp Then
safe_count = safe_count + 1
End If
safe = temp
End If
Loop
If safe_count > 2 Then
MsgBox(".......")
End If
e = b
msgbox (e)
End If
End Sub
</script>
<body>
<form name="form1">
<label>
<input type="text" name="text1" id="text1"/></label>
<p>
<input type="button" value="Help" name="run_button" onClick="RunSub">
</form>
</body>
</html>
Ευελπιστώ σε βοήθεια.
Ευχαριστώ εκ των προτέρων.