Need a simple AutoComment Script

[screwu]

EDIT 29-12-2010: Searching on the net, I?ve found this script. It says that is an Auto Comment Script. I don?t know if it will work (I know that I have to modify some things to make it work, but basically I want to know it it will work?)

'Attribute VB_Name = "Module1"
Sub Main()

Dim buttonval As Integer
Dim StrLen As Integer

Dim App As Object
Set App = CreateObject("PCDLRN.Application")

Dim Part As Object
Set Part = App.ActivePartProgram

Dim Cmds As Object
Set Cmds = Part.Commands

Dim PartProg As Object
Set PartProg = App.ActivePartProgram

Dim Pname As String
Pname = PartProg.PartName
StrLen = Len(Pname)
Pname = Right(Pname, StrLen - 3)

Dim Rnum As String
Rnum = PartProg.RevisionNumber

Dim Snum As String
Snum = PartProg.SerialNumber
StrLen = Len(Snum)
Snum = Right(Snum, StrLen - 4)

Dim MyDate As String
MyDate = Date
'MsgBox MyDate

Dim MyTime As String
MyTime = Time()
'MsgBox MyTime

'Dim Fname As String
'Fname = PartProg.Name
'MsgBox Fname

'On Error
'GoTo label1

Dim Cmd As Object

Begin Dialog DLG_REPORT_COMMENT 50, 32, 150, 150, "What Comments Do You Need?"
OKButton 90, 8, 40, 14
CancelButton 90, 32, 40, 14
CheckBox 12, 8, 50, 8, "Points", .CheckBox1
CheckBox 12, 24, 50, 8, "Align Bowls", .CheckBox2
CheckBox 12, 40, 50, 8, "Sqr Corner", .CheckBox3
CheckBox 12, 56, 50, 8, "Tube Dia's", .CheckBox4
CheckBox 12, 72, 50, 8, "Pin Dia's", .CheckBox5
CheckBox 12, 88, 35, 8, "Custom", .CheckBox6
TextBox 50, 85, 80, 12, .EditBox1
TextBox 50, 100, 80, 12, .EditBox2
CheckBox 12, 116, 50, 8, "Footer", .CheckBox7
CheckBox 30, 132, 120, 8, "Double Space Comments?",.CheckBox8
End Dialog

Dim dlg1 As DLG_REPORT_COMMENT
buttonval = Dialog(dlg1)

Dim customstr As String
customstr = dlg1.EditBox1
Dim customstr2 As String
customstr2 = dlg1.EditBox2

Dim lenstr As Integer
lenstr = Len(dlg1.EditBox2)

'first command
If dlg1.CheckBox1 = 1 Then

Set Cmd = Cmds.Add(SET_COMMENT, True)

retvaltype = Cmd.PutText("REPT", COMMENT_TYPE, 0)
If dlg1.CheckBox8 = 1 Then
retvaltype = Cmd.PutText(" ", COMMENT_FIELD, 1)
retvaltype = Cmd.PutText("Verification Of Intersection Points", COMMENT_FIELD, 2)
Else
retvaltype = Cmd.PutText("Verification Of Intersection Points", COMMENT_FIELD, 1)
End If
Cmd.ReDraw
End If


'second command
If dlg1.CheckBox2 = 1 Then

Set Cmd = Cmds.Add(SET_COMMENT, True)

retvaltype = Cmd.PutText("REPT", COMMENT_TYPE, 0)
If dlg1.CheckBox8 = 1 Then
retvaltype = Cmd.PutText(" ", COMMENT_FIELD, 1)
retvaltype = Cmd.PutText("Verification Of Alignment Points", COMMENT_FIELD, 2)
Else
retvaltype = Cmd.PutText("Verification Of Alignment Points", COMMENT_FIELD, 1)
End If
Cmd.ReDraw
End If

'third command
If dlg1.CheckBox3 = 1 Then

Set Cmd = Cmds.Add(SET_COMMENT, True)

retvaltype = Cmd.PutText("REPT", COMMENT_TYPE, 0)
If dlg1.CheckBox8 = 1 Then
retvaltype = Cmd.PutText(" ", COMMENT_FIELD, 1)
retvaltype = Cmd.PutText("Verification Of Square Corner", COMMENT_FIELD, 2)
Else
retvaltype = Cmd.PutText("Verification Of Square Corner", COMMENT_FIELD, 1)
End If

Cmd.ReDraw
End If

'forth command
If dlg1.CheckBox4 = 1 Then

Set Cmd = Cmds.Add(SET_COMMENT, True)

retvaltype = Cmd.PutText("REPT", COMMENT_TYPE, 0)
If dlg1.CheckBox8 = 1 Then
retvaltype = Cmd.PutText(" ", COMMENT_FIELD, 1)
retvaltype = Cmd.PutText("Verification Of Tube Cavity Diameters", COMMENT_FIELD, 2)
Else
retvaltype = Cmd.PutText("Verification Of Tube Cavity Diameters", COMMENT_FIELD, 1)
End If

Cmd.ReDraw
End If

'fifth command
If dlg1.CheckBox5 = 1 Then

Set Cmd = Cmds.Add(SET_COMMENT, True)

retvaltype = Cmd.PutText("REPT", COMMENT_TYPE, 0)
If dlg1.CheckBox8 = 1 Then
retvaltype = Cmd.PutText(" ", COMMENT_FIELD, 1)
retvaltype = Cmd.PutText("Verification Of Pin Diameters", COMMENT_FIELD, 2)
Else
retvaltype = Cmd.PutText("Verification Of Pin Diameters", COMMENT_FIELD, 1)
End If

Cmd.ReDraw
End If

'sixth command
If dlg1.CheckBox6 = 1 Then

Set Cmd = Cmds.Add(SET_COMMENT, True)

retvaltype = Cmd.PutText("REPT", COMMENT_TYPE, 0)

'retvaltype = Cmd.PutText(" ", COMMENT_FIELD, 1)
retvaltype = Cmd.PutText(customstr, COMMENT_FIELD, 1)
If lenstr > 0 Then
retvaltype = Cmd.PutText(customstr2, COMMENT_FIELD, 2)
End If
Cmd.ReDraw
End If

'seventh command
If dlg1.CheckBox7 = 1 Then

Set Cmd = Cmds.Add(SET_COMMENT, True)

retvaltype = Cmd.PutText("REPT", COMMENT_TYPE, 0)

'retvaltype = Cmd.PutText(" ", COMMENT_FIELD, 1)
retvaltype = Cmd.PutText(" ", COMMENT_FIELD, 1)
retvaltype = Cmd.PutText(" End Of Report:", COMMENT_FIELD, 2)
retvaltype = Cmd.PutText("CMM Number: " & Pname & " Part Number: " & Rnum, COMMENT_FIELD, 3)
retvaltype = Cmd.PutText("TRC Number: " & Snum & " " & MyDate & " " & MyTime, COMMENT_FIELD, 4)

Cmd.ReDraw
End If

End Sub

'label1:

'End Sub

--------------------------------Original Message---------------------------

Hi to everyone, I have recently found this amazing forum, and I?ve completelly fallen in with it! jeje

Well, I have a "friend" that knows a lot about PHP, Scripting, and else. And he made a "Auto Comment Script" (it automatically makes comments in a web called Taringa.net, as soon as a new thread is created)
But the problem is that he is selling it, and I don?t have virtual money in order to buy it.

So I was wondering if you could help me with this, I?d be really pleased

Thanks for reading

screwu Reviewed by screwu on 28th Dec 2010. Need a simple AutoComment Script EDIT 29-12-2010: Searching on the net, I?ve found this script. It says that is an Auto Comment Script. I don?t know if it will work (I know that I have to modify some things to make it work, but basically I want to know it it will work?) 'Attribute VB_Name = "Module1" Sub Main() Dim buttonval As Integer Dim StrLen As Integer Dim App As Object Set App = CreateObject("PCDLRN.Application") Rating: 5

[_brazzO]

no one will give you money .. you only have 1 post and the first one is asking for something from us.

[screwu]

I am not asking for money!

I am asking for help, I want to make the script before descripted.

So what about having just 1 message? I am a new user, yes. Is this a problem, everybody was newb at first.

[_brazzO]

Oh.. my mistake, took the thread the wrong way.
Yeah i know everyone has to start off a newb but asking for something straight away aint the best way to go in my opinion. Anyways good luck with the help

[screwu]

ok thanks

If I could I would study about PHP, Scripting, and all this kind of things, but:

Firstly: I don´t know from where to start. (Actually i´ve tried to learn in a lot of websites, but I can´t find the especially one)
And Seccond: I don´t have enough time

Hope, that someone who knows about this would help me with my request

Thanks

[Snowflake1000]

Learn at w3schools.com

[screwu]

Learn at w3schools.com

hmm thanks, I?ll be visiting it. Meanwhile, I am still accepting someone to help me with te script

Thankss

[Lock Down]

First all scripts don't work with all sites. DO you have the code or are you asking for someone to make a auto comment script from scratch for your type and version of software?

[screwu]

Yes, I know it takes some time, but to those who are experienced on this will be something really easy (or that it what I think). Because I am asking just for an auto comment script (just when a new thread is created post a default comment, wait a minute, and then do the same with another new thread).

I don´t know anything about scripts, so I can´t provide you a script to edit it in order to make it work with a particular webpage.

If someone is interested, the website is taringa.net . And also, if none of you will help me just for being good, I could pay you with alertpay (I don´t have so much money, just two and a half dollar)

Thanks

EDIT: Searching on the net, I´ve found this script. It says that is an Auto Comment Script. I don´t know if it will work (I know that I have to modify some things to make it work, but basically I want to know it it will work?)

'Attribute VB_Name = "Module1"
Sub Main()

Dim buttonval As Integer
Dim StrLen As Integer

Dim App As Object
Set App = CreateObject("PCDLRN.Application")

Dim Part As Object
Set Part = App.ActivePartProgram

Dim Cmds As Object
Set Cmds = Part.Commands

Dim PartProg As Object
Set PartProg = App.ActivePartProgram

Dim Pname As String
Pname = PartProg.PartName
StrLen = Len(Pname)
Pname = Right(Pname, StrLen - 3)

Dim Rnum As String
Rnum = PartProg.RevisionNumber

Dim Snum As String
Snum = PartProg.SerialNumber
StrLen = Len(Snum)
Snum = Right(Snum, StrLen - 4)

Dim MyDate As String
MyDate = Date
'MsgBox MyDate

Dim MyTime As String
MyTime = Time()
'MsgBox MyTime

'Dim Fname As String
'Fname = PartProg.Name
'MsgBox Fname

'On Error
'GoTo label1

Dim Cmd As Object

Begin Dialog DLG_REPORT_COMMENT 50, 32, 150, 150, "What Comments Do You Need?"
OKButton 90, 8, 40, 14
CancelButton 90, 32, 40, 14
CheckBox 12, 8, 50, 8, "Points", .CheckBox1
CheckBox 12, 24, 50, 8, "Align Bowls", .CheckBox2
CheckBox 12, 40, 50, 8, "Sqr Corner", .CheckBox3
CheckBox 12, 56, 50, 8, "Tube Dia's", .CheckBox4
CheckBox 12, 72, 50, 8, "Pin Dia's", .CheckBox5
CheckBox 12, 88, 35, 8, "Custom", .CheckBox6
TextBox 50, 85, 80, 12, .EditBox1
TextBox 50, 100, 80, 12, .EditBox2
CheckBox 12, 116, 50, 8, "Footer", .CheckBox7
CheckBox 30, 132, 120, 8, "Double Space Comments?",.CheckBox8
End Dialog

Dim dlg1 As DLG_REPORT_COMMENT
buttonval = Dialog(dlg1)

Dim customstr As String
customstr = dlg1.EditBox1
Dim customstr2 As String
customstr2 = dlg1.EditBox2

Dim lenstr As Integer
lenstr = Len(dlg1.EditBox2)

'first command
If dlg1.CheckBox1 = 1 Then

Set Cmd = Cmds.Add(SET_COMMENT, True)

retvaltype = Cmd.PutText("REPT", COMMENT_TYPE, 0)
If dlg1.CheckBox8 = 1 Then
retvaltype = Cmd.PutText(" ", COMMENT_FIELD, 1)
retvaltype = Cmd.PutText("Verification Of Intersection Points", COMMENT_FIELD, 2)
Else
retvaltype = Cmd.PutText("Verification Of Intersection Points", COMMENT_FIELD, 1)
End If
Cmd.ReDraw
End If


'second command
If dlg1.CheckBox2 = 1 Then

Set Cmd = Cmds.Add(SET_COMMENT, True)

retvaltype = Cmd.PutText("REPT", COMMENT_TYPE, 0)
If dlg1.CheckBox8 = 1 Then
retvaltype = Cmd.PutText(" ", COMMENT_FIELD, 1)
retvaltype = Cmd.PutText("Verification Of Alignment Points", COMMENT_FIELD, 2)
Else
retvaltype = Cmd.PutText("Verification Of Alignment Points", COMMENT_FIELD, 1)
End If
Cmd.ReDraw
End If

'third command
If dlg1.CheckBox3 = 1 Then

Set Cmd = Cmds.Add(SET_COMMENT, True)

retvaltype = Cmd.PutText("REPT", COMMENT_TYPE, 0)
If dlg1.CheckBox8 = 1 Then
retvaltype = Cmd.PutText(" ", COMMENT_FIELD, 1)
retvaltype = Cmd.PutText("Verification Of Square Corner", COMMENT_FIELD, 2)
Else
retvaltype = Cmd.PutText("Verification Of Square Corner", COMMENT_FIELD, 1)
End If

Cmd.ReDraw
End If

'forth command
If dlg1.CheckBox4 = 1 Then

Set Cmd = Cmds.Add(SET_COMMENT, True)

retvaltype = Cmd.PutText("REPT", COMMENT_TYPE, 0)
If dlg1.CheckBox8 = 1 Then
retvaltype = Cmd.PutText(" ", COMMENT_FIELD, 1)
retvaltype = Cmd.PutText("Verification Of Tube Cavity Diameters", COMMENT_FIELD, 2)
Else
retvaltype = Cmd.PutText("Verification Of Tube Cavity Diameters", COMMENT_FIELD, 1)
End If

Cmd.ReDraw
End If

'fifth command
If dlg1.CheckBox5 = 1 Then

Set Cmd = Cmds.Add(SET_COMMENT, True)

retvaltype = Cmd.PutText("REPT", COMMENT_TYPE, 0)
If dlg1.CheckBox8 = 1 Then
retvaltype = Cmd.PutText(" ", COMMENT_FIELD, 1)
retvaltype = Cmd.PutText("Verification Of Pin Diameters", COMMENT_FIELD, 2)
Else
retvaltype = Cmd.PutText("Verification Of Pin Diameters", COMMENT_FIELD, 1)
End If

Cmd.ReDraw
End If

'sixth command
If dlg1.CheckBox6 = 1 Then

Set Cmd = Cmds.Add(SET_COMMENT, True)

retvaltype = Cmd.PutText("REPT", COMMENT_TYPE, 0)

'retvaltype = Cmd.PutText(" ", COMMENT_FIELD, 1)
retvaltype = Cmd.PutText(customstr, COMMENT_FIELD, 1)
If lenstr > 0 Then
retvaltype = Cmd.PutText(customstr2, COMMENT_FIELD, 2)
End If
Cmd.ReDraw
End If

'seventh command
If dlg1.CheckBox7 = 1 Then

Set Cmd = Cmds.Add(SET_COMMENT, True)

retvaltype = Cmd.PutText("REPT", COMMENT_TYPE, 0)

'retvaltype = Cmd.PutText(" ", COMMENT_FIELD, 1)
retvaltype = Cmd.PutText(" ", COMMENT_FIELD, 1)
retvaltype = Cmd.PutText(" End Of Report:", COMMENT_FIELD, 2)
retvaltype = Cmd.PutText("CMM Number: " & Pname & " Part Number: " & Rnum, COMMENT_FIELD, 3)
retvaltype = Cmd.PutText("TRC Number: " & Snum & " " & MyDate & " " & MyTime, COMMENT_FIELD, 4)

Cmd.ReDraw
End If

End Sub

'label1:

'End Sub

[screwu]

Again searching, I?ve found this... I think this is the right script. If you please could modify it, in order to work in taringa.net.

I have uploaded the file to MU, because I didn?t know how to adjunt it:
http://www.megaupload.com/?d=EWFKVS3K

Thanks