Lines.Append "// " ""+name+ "" ", " ""+product+ "" ", "+str(enddate)+ ", "+str(serial)ĭimlines.Append "dim serial as integer" if CheckBox1.Value then dim f1,f2 as integer dim r1,r2 as integer dim z1,z2 as integerĭimlines.Append "dim s1 as integer="+str(z1)ĭimlines.Append "dim s2 as integer="+str(r1)ĭimlines.Append "dim s3 as integer="+str(f1)ĭimlines.Append "dim s4 as integer="+str(f2)ĭimlines.Append "dim s5 as integer="+str(r2)Ĭalclines.Append "serial=(s1*s3+s2)*s4+s5" elseĮnd if if CheckBox2.Value then dim f1,f2 as integer dim r1,r2 as integer dim z1,z2 as integer Lines.Append "" dim nlines(- 1) as stringĭim enddate,serial as integer dim name,product as string dim lines(- 1) as string Lines.Append "MsgBox " "MBS Plugin registration failed." ""
Lines.Append "if not RegisterMBS"+ "Plugin(name,product,enddate,serial) then" Process CheckBox1.Value, serial, "serial", "s" Process CheckBox4.Value, product, "product", "p" Process CheckBox3.Value, name, "name", "n" Lines.Append "// " ""+name+ "" ", " ""+product+ "" ", "+str(enddate)+ ", " ""+serial+ "" ""ĭimlines.Append "dim serial as string" if CheckBox2.Value then dim f1,f2 as integer dim r1,r2 as integer dim z1,z2 as integerĭimlines.Append "dim e1 as integer="+str(z1)ĭimlines.Append "dim e2 as integer="+str(r1)ĭimlines.Append "dim e3 as integer="+str(f1)ĭimlines.Append "dim e4 as integer="+str(f2)ĭimlines.Append "dim e5 as integer="+str(r2)Ĭalclines.Append "enddate=e5+(e2+e1*E3)*e4" else
Dim enddate as integer dim name,product,serial as string dim lines(- 1) as string
0 kommentar(er)
