Γενικά θέματα ανάπτυξης για τα Windows Vista & Windows 7

Απ: Vista Sidebar gadget - Βοήθεια

kon_nos — Wed, 05 Dec 2007 03:46:44 GMT

Να ρωτήσω. Επειδή δεν το έχω ψάξει το θέμα, αν το κάνω Windows Live Gadget, θα έχω τους ίδους περιορισμούς;

Πρόσεξα πως δεν έχουν αρχείο html μέσα.

Απ: Vista Sidebar gadget - Βοήθεια

kon_nos — Fri, 30 Nov 2007 21:46:19 GMT

Συγκρίνει την λέξη που δώθηκε με τα στοιχεία του πίνακα c. Ανάλογα με το αποτέλεσμα δίνει ή 1 ή 2. Μετά την σύγκριση του a με το temp, καταχωρείτε το αποτέλεσμα στο b, και στο temp καταχωρείτε το στοιχείο του a. Όταν temp και a ίσα τότε εμφανίζει το b.

η μικροεφαρμογή που θέλω να φτιάξω είναι αυτή: http://atixos.googlepages.com/Greeklish_V0.8.rar . Όπως βλέπεις ο κώδικας είναι απόλυτα λειτουργικός αλλά δυστυχώς δεν γίνεται να το περάσω σε μικροεφαρμογή.

Έχω την εντύπωση πως θέλει κάτι με τα Active X.

Απ: Vista Sidebar gadget - Βοήθεια

KelMan — Fri, 30 Nov 2007 20:30:13 GMT

Γράψε και δυο λόγια για το τι κάνει ή τι θα πρέπει να κάνει...

Απ: Vista Sidebar gadget - Βοήθεια

kon_nos — Fri, 30 Nov 2007 19:19:46 GMT

Το ξαναέφτιαξα και δουλεύει.

<html>

<head>
<title>oeo2</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) = "w"

d(0) = "1"
d(1) = "2"

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 = 2 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("Safe count")
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="Τρέξε" name="run_button" onClick="RunSub">
</form>
</body>

</html>

Αν μπορείτε να δοκιμάσετε ως gadget, και να δείτε αν δουλεύει ίσως θα μπορέσετε να δείτε τι πάει στραβά, αν και αυτό το προσπαθώ καιρό τώρα.

Απ: Vista Sidebar gadget - Βοήθεια

KelMan — Fri, 30 Nov 2007 19:07:11 GMT

Εμένα όταν βάζω text τιμή μου βγάζει "Type mismatch" error ενώ όταν βάζω numeric μου βγάζει "Subscript out of range" error.

Απ: Vista Sidebar gadget - Βοήθεια

kon_nos — Fri, 30 Nov 2007 18:55:54 GMT

Για αυτό τον λόγο υπάρχει η safe_count που έχω στον κώδικα. μετά από 2 επαναλήψεις διακόπτει τη λειτουργία.

Απ: Vista Sidebar gadget - Βοήθεια

KelMan — Fri, 30 Nov 2007 07:58:07 GMT

Δεν έχω δοκιμάσει τον κώδικά σου, αλλά μάλλον το πρόβλημα είναι ότι δεν κάνεις validation στις τιμές που περνάει κάποιος στο textbox. Επειδή η μεταβλητή a χρησιμοποιείται ως συνθήκη του loop, ίσως να μπορεί ο κώδικας να πέσει σε infinite loop δίνοντας την κατάλληλη τιμή.

Απ: Vista Sidebar gadget - Βοήθεια

kon_nos — Fri, 30 Nov 2007 02:51:34 GMT

Vista Sidebar Gadget

Απ: Vista Sidebar gadget - Βοήθεια

KelMan — Thu, 29 Nov 2007 23:59:04 GMT

dt008:

...συν τοις άλλοις, βλέπω ότι έχεις χρησιμοποιήσει τη συνάρτηση MsgBox. Δεν είμαι και ο πλέον ειδικός της vbscript, αλλά υποπτεύομαι ότι η κλήση της είναι λάθος, καθώς στα gadgets δεν υποστηρίζεται η δημιουργία popup windows (για αυτό και δεν δουλεύει ούτε η alert() της javascript)

To MsgBox παίζει μια χαρά, δεν κατάλαβα όμως αν μιλάμε για Vista Sidebar Gadget ή για Live Gadget

Απ: Vista Sidebar gadget - Βοήθεια

kon_nos — Thu, 29 Nov 2007 21:02:45 GMT

Έκανα τις μιρκοδιορθώσεις. Όπου msgbox το αντικατέστησα με ένα textbox. Το κακό είναι πως τώρα όταν πάω να το εγκαταστήσω μου λέει "Δεν είναι έγκυρο πακέτο μικροεφαρμογής". Θα κοιτάξω τι έχω κάνει λάθος, και θα προσπαθήσω να ανεβάσω εδώ έναν κώδικα που δουλεύει.

ευχαριστώ και πάλι.

Απ: Vista Sidebar gadget - Βοήθεια

kon_nos — Thu, 29 Nov 2007 19:44:12 GMT

Το έστειλα και μου απάντησαν με το παρακάτω μήνυμα.

We're sorry but we won't be able to host your submission of ********* on the Windows Live Gallery website.

Your gadget wasn't accepted because it looks like it could be vulnerable to malicious attacks. Go to the developer center for ideas about how to make your gadget more secure We hope you'll give it another shot - just modify your submission, send it back to us, and we'll take another look.

If you have any questions or comments, please send them through the feedback link on the Gallery website.

This is an unmonitored mailbox, please do not reply to this email directly.

Sincerely,
The Windows Live Gallery Team

Θα δοκιμάσω να αντικαταστήσω το msgbox με <span> ή άλλο textbox και θα σας πω.

Απ: Vista Sidebar gadget - Βοήθεια

Δημήτρης Γκανάτσιος — Thu, 29 Nov 2007 10:04:16 GMT

Πήγες να το ανεβάσεις στο gallery και σου είπανε για secutiry problem?? περίεργο... βασικά, δοκίμασα να το τρέξω σε html και μου βάρεσε σε αυτή τη γραμμή

ElseIf i = 143 And a > temp & (c(i) Or a = temp & c(i)) Then , ένα "type mismatch: c(...)"

συν τοις άλλοις, βλέπω ότι έχεις χρησιμοποιήσει τη συνάρτηση MsgBox. Δεν είμαι και ο πλέον ειδικός της vbscript, αλλά υποπτεύομαι ότι η κλήση της είναι λάθος, καθώς στα gadgets δεν υποστηρίζεται η δημιουργία popup windows (για αυτό και δεν δουλεύει ούτε η alert() της javascript)

Απ: Vista Sidebar gadget - Βοήθεια

kon_nos — Thu, 29 Nov 2007 09:12:09 GMT

Μήπως κάποιος μπορεί να το μεταφέρει στα Γενικά θέματα ανάπτυξης για τα Windows Vista ; Τώρα το είδα.

Vista Sidebar gadget - Βοήθεια

kon_nos — Thu, 29 Nov 2007 05:34:25 GMT

Κατ'αρχάς συγγνώμη εάν ποστάρω σε λάθος κατηγορία.

Αναπτύσσω μια μικροεφαρμογή για τα 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>

Ευελπιστώ σε βοήθεια.

Ευχαριστώ εκ των προτέρων.