Xpounded My WSC Component Source

This simple application is perfect for creating skeleton script quickly.

(Compare its 10kb footprint to the 1MB+ Microsoft™ version).

Save this file as a .html or .hta Use it freely

Select All

<HTML>

<HEAD>
<TITLE>
Xpounded WSC Skeleton Creator
</TITLE>
<STYLE>
	body	{font-family:helvetica;font-weight:bold;}
	.beige {background:beige;font-family:helvetica;font:bold;}
	.navy {background:navy;color:white;font-family:helvetica;font:bold;}
	.navy input {font-weight:bold;}
	.panel {position:absolute;left:50;top:30;width:700;height:310;
			background:aliceblue;text-align:center;
			visibility:hidden}
	.header {position:relative;background:lightgrey;color:white;cursor:hand;}
	option {font-family:script;font-weight:bold;}
</STYLE>
<SCRIPT LANGUAGE = "VBScript">
	Function Hex(n)
		Dim h(16):h(0)="0"
		h(1)="1":h(2)="2":h(3)="3":h(4)="4":h(5)="5"
		h(6)="6":h(7)="7":h(8)="8":h(9)="9":h(10)="A"
		h(11)="B":h(12)="C":h(13)="D":h(14)="E":h(15)="F"
		Hex=h(n)
	End Function
	Function newClassId
		Dim result,na:na=Array(3,1,1,1,5):result="{"
		for i = 0 to ubound(na):l=cint(na(i))
			for j=0 to l
				result=result & hex(int(rnd(1)*15)) & hex(int(rnd(1)*15))
			next
			result=result & "-"
		next
		newClassId=left(result,len(result)-1) & "}"
	End Function
	Sub description_onblur
		If package_name.value<>"" then
			Dim tmp1,tmp2
			tmp1=trim(package_name.value)
			if tmp1<>"" then
				v=split(tmp1," ")
				if ubound(v)>0 then
					tmp1=join(v,"_")
				end if
			end if
			tmp2=trim(description.value)
			if tmp2<>"" then
				v=split(tmp2," ")
				if ubound(v)>0 then
					tmp2=join(v,"_")
				end if
			end if
			package_name.value=tmp1
			description.value=tmp2
			progid.value=package_name.value & "." & description.value
		End IF
	End Sub
	Sub auto_classid_onclick
		classid.value=newClassId 
	End Sub
	Sub window_onload
		version.value="1.00"
		main.style.visibility="visible"
		itemMain.style.background="gray"
	End Sub
	Sub itemMain_onclick
		attributes.style.visibility="hidden"
		make.style.visibility="hidden"
		main.style.visibility="visible"
		itemAttributes.style.background="lightgrey"
		itemMake.style.background="lightgrey"
		itemMain.style.background="gray"
	End Sub
	Sub itemAttributes_onclick
		main.style.visibility="hidden"
		make.style.visibility="hidden"
		attributes.style.visibility="visible"
		itemMain.style.background="lightgrey"
		itemMake.style.background="lightgrey"
		itemAttributes.style.background="gray"
	End Sub
	Sub itemMake_onclick
		main.style.visibility="hidden"
		attributes.style.visibility="hidden"
		make.style.visibility="visible"
		itemMain.style.background="lightgrey"
		itemAttributes.style.background="lightgrey"
		itemMake.style.background="gray"
	End Sub
	Dim methArray(),methCount,propArray(),propCount
	methCount=0:propCount=0
	Sub addMethod_onclick
		if method_name.value<>"" then
			Dim tmp1
			tmp1=trim(method_name.value)
			if tmp1<>"" then
				v=split(tmp1," ")
				if ubound(v)>0 then
					tmp1=join(v,"_")
				end if
			end if
			methCount=methCount+1
			redim preserve methArray(methCount+1)
			methArray(methCount)=tmp1
			set op=document.createElement("OPTION")
			op.value=tmp1
			op.innerHTML=tmp1
			methSelect.appendChild(op)
			method_name.value=""
			method_name.focus
		End If
	End Sub
	Sub addProperty_onclick
		if property_name.value<>"" then
			Dim tmp1
			tmp1=trim(property_name.value)
			if tmp1<>"" then
				v=split(tmp1," ")
				if ubound(v)>0 then
					tmp1=join(v,"_")
				end if
			end if
			propCount=propCount+1
			redim preserve propArray(propCount+1)
			propArray(propCount)=tmp1
			set op=document.createElement("OPTION")
			op.value=tmp1
			op.innerHTML=tmp1
			propSelect.appendChild(op)
			property_name.value=""
			property_name.focus
		End If
	End Sub
	Sub methSelect_ondblclick

End Sub
	Sub method_name_onkeyup
		e=window.event.keyCode
		If e=13 Then
			addMethod_onclick
		End If
	End Sub
	Sub property_name_onkeyup
		e=window.event.keyCode
		If e=13 Then
			addProperty_onclick
		End If
	End Sub
	Sub build_onclick
		s="<?xml version=" & chr(34) & "1.0" & chr(34) & "?>" & vbcrlf & _
			"<component>" & vbcrlf & _
			"<registration" & vbcrlf & _
			vbtab & "description=" & chr(34) & description.value & chr(34) & vbcrlf & _
			vbtab & "progid=" & chr(34) & progid.value & chr(34) & vbcrlf & _
			vbtab & "version=" & chr(34) & version.value & chr(34) & vbcrlf & _
			vbtab & "classid=" & chr(34) & classid.value & chr(34) & vbcrlf & _
   			vbtab & "remotable=" & chr(34) & lcase(remotable.checked) & chr(34) & " >" & vbcrlf & _
 			vbtab & "<script language=" & chr(34) & "VBScript" & chr(34) & ">" & vbcrlf & _
			vbtab & "<![CDATA[" & vbcrlf & _
			vbtab & vbtab & "function register()" & vbcrlf & _
			vbtab & vbtab & vbtab & register.value & vbcrlf & _
			vbtab & vbtab & "end function" & vbcrlf & _
			vbtab & vbtab & "function unregister()" & vbcrlf & _
			vbtab & vbtab & vbtab & unregister.value & vbcrlf & _
			vbtab & vbtab & "end function" & vbcrlf & _
			vbtab & "]]>" & vbcrlf & _
			vbtab & "</" & "script>" & vbcrlf & _
			"</registration>" & vbcrlf & _
			"<public>" & vbcrlf
			On Error Resume Next
			If isArray(propArray) Then
				For i=1 to ubound(propArray)-1
					s=s & _
					vbtab & "<property name=" & chr(34) & propArray(i) & chr(34) & ">" & vbcrlf & _
					vbtab & vbtab & "<get />" & vbcrlf & _
					vbtab & vbtab & "<put />" & vbcrlf & _
					vbtab & "</property>" & vbcrlf
				Next
			End If
			If isArray(methArray) Then 
				For i=1 to ubound(methArray)-1
					s=s & _
					vbtab & "<method name=" & chr(34) & methArray(i) & chr(34) & ">" & vbcrlf & _
					vbtab & vbtab & "" & vbcrlf & _
					vbtab & vbtab & "<PARAMETER name=" & chr(34) & chr(34) & " />" & vbcrlf & _
					vbtab & "</method>" & vbcrlf
				Next
			End If
			s=s & _
			"</public>" & vbcrlf & _
			"<sc" & "ript language=" & chr(34) & "VBScript" & chr(34) & ">" & vbcrlf & _
			vbtab & "<![CDATA[" & vbcrlf
			If isArray(propArray) Then
				For i=1 to ubound(propArray)-1
					s=s & _
					vbtab & vbtab & "dim " & propArray(i) & vbcrlf
				Next

End If
			If isArray(propArray) Then
				For i=1 to ubound(propArray)-1
					s=s & _
					vbtab & vbtab & "function get_" & propArray(i)  & vbcrlf & _
					vbtab & vbtab & vbtab & "'Add your property code"  & vbcrlf & _
					vbtab & vbtab & vbtab & "get_" & propArray(i) & " = " & propArray(i) & vbcrlf & _
					vbtab & vbtab & "end function" & vbcrlf & _
					vbtab & vbtab & "function put_" & propArray(i)  & "(newValue)" & vbcrlf & _
					vbtab & vbtab & vbtab & "'Add your property code"  & vbcrlf & _
					vbtab & vbtab & vbtab & propArray(i) & " = newValue" & vbcrlf & _
					vbtab & vbtab & "end function" & vbcrlf
				Next
			End If
			If isArray(methArray) Then
				For i=1 to ubound(methArray)-1
					s=s & _
					vbtab & vbtab & "function " & methArray(i)  & "()" & vbcrlf & _
					vbtab & vbtab & vbtab & "'Add your code"  & vbcrlf & vbcrlf & _
					vbtab & vbtab & "end function" & vbcrlf
				Next
			End If
			s=s & _
			vbtab & "]]>" & vbcrlf & _
			"</sc" & "ript>" & vbcrlf & _
			"</component>" & vbcrlf
		source_code.value=s
	End sub
</SCRIPT>
</HEAD>
<BODY>
<div id="holder" style="position:absolute;top:10;left:50;">
<span id="itemMain" class="header">Description</span>
<span id="itemAttributes" class="header">Attributes</span>
<span id="itemMake" class="header">Build</span>
<span>_______________________________</span>
<span>WSC Skeleton Creator</span>
</div>
<div id="main" class="panel">
<br>
<table class="navy">
	<tr><td>Component Name</td><td>   </td><td><input id="package_name" size="48" /></td><td></td></tr>
	<tr><td>description</td><td>   </td><td><input id="description" size="48" /></td><td></td></tr>
	<tr><td>progid</td><td>   </td><td><input id="progid" size="48" disabled="disabled"/></td><td></td></tr>
	<tr><td>version</td><td>   </td><td><input id="version" size="48"  disabled="disabled"/></td><td></td></tr>
	<tr><td>classid</td><td>   </td><td><input id="classid" size="48"  disabled="disabled"/></td><td><button id="auto_classid">Auto</button></td></tr>
	<tr><td>remotable</td><td>   </td><td><input id="remotable" type="checkbox" checked /></td><td></td></tr>
	<tr><td>register</td><td>   </td><td><textarea id="register" cols="36">MsgBox("Component is registered!")</textarea></td><td></td></tr>
	<tr><td>unregister</td><td>   </td><td><textarea id="unregister" cols="36">MsgBox("Component is unregistered!")</textarea></td><td></td></tr>
</table>
</div>
<div id="attributes" class="panel">
<br>
<table class="navy">
	<tr><td width="200">Add Method Name</td><td>   </td><td><input id="method_name" size="48" /></td><td><button id="addMethod">ADD</button></td></tr>
	<tr><td>Add Property Name</td><td>   </td><td><input id="property_name" size="48" /><td><button id="addProperty">ADD</button></td></tr>
	<tr><td colspan="4" style="border-width:1;border-style:solid;background:pink;"> </td></tr>
	<tr><td>Methods</td><td></td><td>Properties</td><td></td></tr>
	<tr><td>
		<select id="methSelect" size="10">
			<option>Methods for Component</option>
		</select>
	</td><td></td><td>
		<select id="propSelect" size="10">
			<option>Properties for Component</option>
		</select>
	</td><td></td></tr>
</table>
</div>

<div id="make" class="panel">
<br>
<table class="navy">
	<tr><td>Make</td><td>   </td><td><center><button id="build">Build The WSC Component</button>    <a href="javascript:source_code.focus();source_code.select()" style="text-decoration:none;">select all</a></center></td></tr>
	<tr><td valign="top">Source</td><td>   </td><td><textarea id="source_code" rows="15" cols="70" style="font-weight:bold;"></textarea></td></tr>
</table>
</div>
</BODY>
</HTML>

WSC Component Builder Source

- Copyright 2003-2006 Xpounded -
All JS code developed by Xpounded is developed in RHSCoder.
All VBS code developed by Xpounded is developed in VBS QuickDev IDE, or RHSCoder.
Feedback